DBGrid、Text，为什么响应总是慢半拍？

Question

Private Sub DBGrid1_Click()
  If Data1.Recordset.EOF Then
     Exit Sub
  Else
     Data1.Recordset.Book = DBGrid1.Book  '应该是这个语句有问题吧
     Text1.Text = Data1.Recordset.Fields("KFS_NAME").Value
End Sub项目要求，当点击DBGrid中一条记录时，要在Text控件中显示相应的名称，我打算用上面的语句实现。
但是，每次点击时，总是显示前一次点击应该显示的名称，第一次点击不会显示内容，这是为什么呢？！
或者不使用这样的语句，该怎样编写可以实现我的目的呢？
请高手指教！！

Answer 1

可以考虑这样呀，首先执行这句,recordset.moveNext,不就可以了吗？？

Answer 2

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    'Write your codes here...
End Sub