无代码，无真相。
你所说的TEXT是指TextBox控件？
如果是这样，请认真检查窗体上是不是真的有这个名称的控件。

也就是标准TEXT控件，名称都检查过，没问题
程序调试也没问题
但编译时就出问题了
 Rs("采购单号") = Trim(Combo1.Text)
Rs("入库日期") = DTPicker1.Value
Rs("入库人") = Trim(Combo2.Text)
Rs("备注") = Trim(Text5.Text)

显示变量未定义就在最后一句trim(text5.text)