[求助]請幫忙看看
有谁知道,这个错误信息是什么意思啊。
這是一個查詢窗口的程序,代碼如下:
Private Sub CmdSearch_Click(Index As Integer)
If text1.Text = "" And text2.Text = "" Then
MsgBox "請輸入查詢條件!"
Else
If text1.Text <> "" Then
adodc1.RecordSource = "select * from 數據庫表名 where 字段名1 = '" & Trim(text1.Text) & "'"
adodc1.Refresh
Else
If text2.Text <> "" Then
adodc1.RecordSource = "select * from 數據庫表名 where 字段名2 = '" & Trim(text2.Text) & "'"
adodc1.Refresh
End If
End If
End If
End Sub
執行該程序後提示以上錯誤
[此贴子已经被作者于2006-2-28 11:25:34编辑过]