Private Sub Command1_Click()
Adodc1.RecordSource = "select*from 产线 where 产线='" & Text1.Text & "'"
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields("电机型号")
Text3.Text = Adodc1.Recordset.Fields("减速机型号")
Text4.Text = Adodc1.Recordset.Fields("辊道型号")
Text5.Text = Adodc1.Recordset.Fields("更换记录")
End Sub
这段程序是个查询数据库程序，但条件是只有在Text1文本框中输入的内容与数据库的内容相符时单击Command1时才能执行命令，当输入的内如与数据库的内容不符时，单击Command1按钮就出错，请问哪位大侠能给小弟加一段判断语句啊，若不符合，则提示“输入的内如不对，请重新输入”，然后清空，再输入。我编了几个判断的语句，都不行，请哪位大侠帮一下啊，在下不胜感激！

在Adodc1.Refresh后面加上下面的代码，    Adodc1.Recordset.EOF = True意思就是没有查询到内容

If Adodc1.Recordset.EOF = True Then
MsgBox "没有此信息！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
End If

十分感谢您的帮助，非常有用，感激啊！