adoRs.Open "select * from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
   Text14.Text = adoRs("数量")
   
 
 If CCur(Text7.Text) > CCur(Text14.Text) Then
    MsgBox "出仓数量大于实际库存数量,系统审核不通过,请重新输入!", 48 + vbOKOnly, "提示"
     Text7.Text = 0
   end sub
   End If

我不会赋值给text14,让text1有编号是，text14也会显示这编号的库存数量~~

那就
Text14.Text=Text1.Text或者Cstr(Text14.text)

text14.text=adors.feilds("数量")

先得出数量，
 adoRs.Open "select adoRs("数量") from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
然后再写个：
 adoRs1.Open "select * from SuKiMaterialStorage where 物料编号='" & Text1.Text & "'"
   Text14.Text = adoRs("数量")

问题写的具体一点。

把代码用网页自带的"程序代码"显示出来