Dim xingming As String

Private Sub Command1_Click()

xingbie = InputBox$("请输入性名", "查找窗")
Adodc1.RecordSource = "Select * From TelBook Where Name =" '&xingming&'"
If Adodc1.Recordset.EOF Then
MsgBox ("dadas")
Adodc1.RecordSource = "学生情况"
Adodc1.Refresh
Else
MsgBox ("no")
End If

End Sub

我想问问以上对吗
尤其是这个Name =" '&xingming&'"部分的格式
为什么我的是被 ' 这个符号 把后面的语句屏蔽了呢
我想知道select具体的格式

Adodc1.RecordSource = "Select * From TelBook Where Name ='" & xingming & "'"
不引用变量的格式是
Adodc1.RecordSource = "Select * From TelBook Where Name ='张三'

非常感谢

我想问一下 怎么对查找结果进行判断呢?

你是说要是否能够查询出结果么？
判断RecordCount>0

感谢楼上