请问：这段代码应该怎么写！！

Question

使用DAO连接Access数据库，在编写上一条和下一条按钮时的代码是这样写的，
  If Not rs.EOF Then
     rs.MoveNext
     Text_code.Text = rs!code
     Text_name.Text = rs！name
     Text_source.Text = rs!Source
     Text_class.Text = rs!Class
     Text_re.Text = rs!re
     ....
  End If
数据库已经在其他模块连接，数据对象定义的是全局变量，但是运行时提示“无当前记录”，这是为什么。

Answer 1

把 rs.MoveNext放後面就行了

Answer 2

把Text直接连到DAO上就不用写代码了

Answer 3

If Not rs.EOF Then    
     Text_code.Text = rs!code
     Text_name.Text = rs！name
     Text_source.Text = rs!Source
     Text_class.Text = rs!Class
     Text_re.Text = rs!re
     ....
     rs.MoveNext
  End If

Answer 4

或者这样：
If Not rs.EOF Then 
  rs.MoveNext
  If Not rs.EOF Then    
     Text_code.Text = rs!code
     Text_name.Text = rs！name
     Text_source.Text = rs!Source
     Text_class.Text = rs!Class
     Text_re.Text = rs!re
     ....
  End If
endif
作两次判断可能有点...,但可以达到你的目的！