vb from子语句错误
这是小弟弄的一 查询 代码可是运行是总是提示错误，小弟初学vb 怎么看找都不知道哪里出了错 ，渴望得到到前辈们的指导，小弟万分感。




private Sub Command1_Click()
If Text1textbox = "" Then
Adodc1.RecordSource = "SELECT * FROM xsda"
Else
Select Case sel
Case 0
Adodc1.RecordSource = "SELECT * FROM xsda where xh='" & Text1text & "'"
Case 1
Adodc1.RecordSource = "SELECT * FROM xsda where xm='" & Text1text & "'"
Case 2
Adodc1.RecordSource = "SELECT * FROM xsda where xb='" & Text1text & "'"
Case 3
Data1.RecordSource = "SELECT * FROM xsda where nl='" & Text1text & "'"
Case 4
Adodc1.RecordSource = "SELECTt * FROM xsda where dh='" & Text1text & "'"
Case 5
Adodc1.RecordSource = "SELECT * FROM xsda where zzmm='" & Text1text & "'"
Case 6
Adodc1.RecordSource = "SELECT * FROM xsda where jg='" & Text1text & "'"


End Select
End If
Adodc1.Refresh
End Sub

Private Sub Option1_Click(Index As Integer)
sel = Index
Select Case Index
Case 0
Label1.Caption = "请输入学号"
Case 1
Label1.Caption = "请输入姓名"
Case 2
Label1.Caption = "请输入性别"
Case 3
Label1.Caption = "请输入年龄"
Case 4
Label1.Caption = "请输入电话"
Case 5
Label1.Caption = "请输入政治面貌"
Case 6
Label1.Caption = "请输入籍贯"

End Select
End Sub

[解决办法]
先看看例子吧
http://download.csdn.net/source/1425896
[解决办法]
你断点跟踪一下不就好了
[解决办法]

探讨

先看看例子吧
http://download.csdn.net/source/1425896

[解决办法]

探讨

1，楼主请确认Text1text是变量还是控件，如果是控件，则应该是Text1.text吧
2，字段类型是字符型，则Adodc1.RecordSource = "SELECT * FROM xsda where xh='" & Text1text & "'"
3，字段类型是数值型，则Adodc1.RecordSource = "SELECT * FROM xsda where ……

[解决办法]
你断点跟踪一下不就好了...

还有这个
If Text1textbox = "" Then

[解决办法]
Text1text ???
确定不是Text1.text ???

[解决办法]
条件查询代码很正确,唯一的错误可能性就是你的
If Text1textbox = "" Then
和where ..='" & text1text & "'"

你应该是判断text控件的内容来进行条件查询的,所以说你的这两个地方不同就肯定有错误了

让人万分纠结...