请问这个程序应该怎么补充啊?!
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按钮就出错,请问哪位大侠能给小弟加一段判断语句啊,若不符合,则提示“输入的内如不对,请重新输入”,然后清空,再输入。我编了几个判断的语句,都不行,请哪位大侠帮一下啊,在下不胜感激!