Question

VB 数据库 记录移动问题

请问高手我下面一段代码为什么老是出现错误呢
If Rs.EOF = False Then 'Not Rs.EOF
Rs.MoveNext
Text1.Text = Rs.Fields("姓名")
Text2.Text = Rs.Fields("ID")
Text3.Text = Rs.Fields("公司")
Text4.Text = Rs.Fields("职务")
Text5.Text = Rs.Fields("手机")
Text6.Text = Rs.Fields("电话")
Text7.Text = Rs.Fields("地址")
Text8.Text = Rs.Fields("备注")
Text12.Text = Rs.Fields("传真")
MsgBox "查询信息已找到！ ", vbInformation, "查询结果"
ElseIf Rs.EOF = True Then
MsgBox "已到最后一条 ", vbInformation, "查询结果"
Else
End If
提示:实时错误'3021' EOF或则BOF有一个是'真',或则当前的记录已经被删除,所需的操作需要一个当前记录
我这样写的不对吗 问题出在哪里你能详细点吗

Answer 1

Rs.MoveNext
是不应该在赋值语句Text12.Text = Rs.Fields("传真")
之后呢?
最好在判断(循环)之前加一个Movefirst