紧急求助 数据库查询的出现的问题
下面是我查询的代码,我每次查询为什么都是错误(就是我自己设定错误的信息)
各个子程序没干什么代码,大家不必想!
Private Sub Command1_Click()
On Error GoTo ww
Call a1
Call aa
If Text4.Text = "" Then
b = MsgBox("请输入要查找的名称", vbQuestion, "错误")
Exit Sub
End If
x = Combo2.Text
Select Case x
Case "网站名称"
Data1.RecordSource = "selete * from inter where wc1 = '" & Text4.Text & "'"
Data1.Refresh
Case "网站地址"
Data1.RecordSource = "selete * from inter where wc2 = '" & Text4.Text & "'"
Data1.Refresh
Case "网站类型"
Data1.RecordSource = "selete * from inter where wc3 = '" & Text4.Text & "'"
Data1.Refresh
Case Else
End Select
Call cc
Call bb
Call b1
ww:
b = MsgBox("程序出错,请查看是否输入正确", vbInformation, "出错了:(")
Call aa
Exit Sub
End Sub