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也会显示这编号的库存数量~~