VB数据库查询问题 如果数据库无此内容，怎么显示“无此数据”提示

在rs.Open那句之后加上:

If rs.BOF And rs.EOF Then

MsgBox "无此数据"

Else

'这里放从i=0那句,到rs.Close之前一句的代码!

End If

rs.Close

End Sub

先判断文本框是否有内容

if Trim(Text1.text)="" then

msgbox "请输入查询内容！"

exit sub

End if

再判断查询结果是否为空

If Adodc1.Recordset.EOF Then

改成：

If Adodc1.Recordset.EOF or Adodc1.Recordset.BOF Then

---