rs.Open "select sno,begintime,numb,statement  from info  where sno='" & Trim(text2.Text) & "' and statement=1 ", conn
today1 = rs.Fields.Item("begintime")
   num = rs.Fields.Item("numb")
statement = rs.Fields.Item("statement")
sno = rs.Fields.Item("sno")
bof 或eof中有一个是”真“或者当前的纪录已被删除，所需的操作要求一个 当前的记录

类似的问题我以前也遇到过，不知道怎么了，现在就解决不了了，帮忙看看吧

没查询到记录当然出这个错。

rs.Open "select sno,begintime,numb,statement from info where sno='" & Trim(text2.Text) & "' and statement=1 ", conn IF rs.EOF=True Or rs.BOF=True Then Msgbox "bof 或eof中有一个是真" End IF today1 = rs.Fields.Item("begintime") num = rs.Fields.Item("numb") statement = rs.Fields.Item("statement") sno = rs.Fields.Item("sno") 用上面那个红字的代码先测一测，如果弹出窗口，证明要么你的text2.text没有值或输入的值数据库里查不到，要么就是查询语句select sno,begintime,numb,statement from info where sno='" & Trim(text2.Text) & 有错误。

谢谢啦
问题解决了，因为需要得到 前面的数据，所以这里出错了。