vb运行时，文本框不输入内容或者输入数据库中没有的内容，点查询，会报错BOF或EOF中有一个是真怎么解决

Question

以下是我的代码，怎么改改合适？

Private Sub Command1_Click()
With Adodc1
Adodc1.RecordSource = "select * from [sheet1] where [姓名]='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "未输入或不存在，请重新输入", vbOKOnly, "提示"
Else
End If
Text2.Text = IIf(IsNull(.Recordset("联系方式")), "没有联系方式", .Recordset("联系方式"))
Text3.Text = IIf(IsNull(.Recordset("职称")), "没有职称", .Recordset("职称"))
Text4.Text = IIf(IsNull(.Recordset("专业")), "没留专业", .Recordset("专业"))
Text5.Text = IIf(IsNull(.Recordset("单位")), "没留单位", .Recordset("单位"))
End With
End Sub

Answer 1

先判断文本框是否有内容
if Trim(Text1.text)="" then
msgbox "请输入查询内容！"
exit sub
End if
再判断查询结果是否为空
If Adodc1.Recordset.EOF Then
改成：
If Adodc1.Recordset.EOF or Adodc1.Recordset.BOF Then追问

不输入内容时点查询不报错了，但是输入数据库中没有的内容时还是会报错。

怎么弄

追答

只能说，你的语法写错了。
Adodc1.Recordset.Fields("联系方式") 这个才是对应的...

追问

能给个QQ号吗？或者把这段错误的完整的改出来写一下，