Select Case "& Text.text&"
         
  Case "&Text1.Text&" = "", MsgBox("仪器名称为空，请输入！")
   Case "&text2.text&" = "", MsgBox("仪器型号为空，请输入！")
 Case "&text3.text&" = "", MsgBox("生产商为空，请输入！")
 Case "&text4.text&" = "", MsgBox("生产日期为空，请输入！")
  Case "&text5.text&" = "", MsgBox("购买日期为空，请输入！")
  Case "&text6.text&" = "", MsgBox("购买人为空，请输入！")
  Case "&text7.text&" = "", MsgBox("购买单价为空，请输入！")
  Case "&text8.text&" = "", MsgBox("购买数量为空，请输入！")
  Case "&text9.text&" = "", MsgBox("备注为空，请输入！")
  Case Else
  End Select
  
  Adodc1.RecordSource = "select * from 仪器添加表 where 仪器名称"
   Adodc1.Refresh
   Adodc1.Recordset.AddNew
  ' Text1.SetFocus
 Adodc1.Recordset.Fields("仪器名称") = Text1.Text
 Adodc1.Recordset.Fields("仪器型号") = Text2.Text
 Adodc1.Recordset.Fields("生产商") = Text3.Text
 Adodc1.Recordset.Fields("生产日期") = Text4.Text
 Adodc1.Recordset.Fields("购买日期") = Text5.Text
 Adodc1.Recordset.Fields("购买人") = Text6.Text
 Adodc1.Recordset.Fields("购买单价") = Text7.Text
 Adodc1.Recordset.Fields("购买数量") = Text8.Text
 Adodc1.Recordset.Fields("备注") = Text9.Text

'Dim i As Integer
'For i = 1 To 10
'If Text(i).Text = "" Then
'MsgBox ("有空项，请填写")
'Text(i).SetFocus


 Adodc1.Recordset.Update
 
   Adodc1.Recordset.MoveLast