为什么下一条记录显示不出来，还是原来的记录

Question

在
Private Sub Form_Load()
 Set Rs = New Recordset
  Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic        cmbHth.Text = Rs!gcID
  mbDataChanged = False
End SubPrivate Sub Next_Click()
      If Not Rs.EOF Then Rs.MoveNext
      If Rs.EOF And Rs.RecordCount > 0 Then
        Beep
        Rs.MoveNext
        
      End If
      mbDataChanged = False
      Exit Sub
GoNextError:
      MsgBox Err.DescriptionEnd Sub在Next_Click这样写为什么显示的还是原来的纪录呢？
而实际记录已经移动，但就是显示不出来，为什么

Answer 1

Private Sub Form_Load()
 dim Rs as  New adodb.Recordset
  Rs.Open "select gcID from T_clb", Cn, adOpenStatic, adLockOptimistic        cmbHth.Text = Rs!gcID
  mbDataChanged = False
End SubPrivate Sub Next_Click()
call from load
      If Not Rs.EOF Then Rs.MoveNext
      If Rs.EOF And Rs.RecordCount > 0 Then
        Beep
        Rs.MoveNext
        
      End If
      mbDataChanged = False
      Exit Sub
GoNextError:
      MsgBox Err.DescriptionEnd Sub

Answer 2

If Rs.EOF And Rs.RecordCount > 0 Then
        Beep
        Rs.MoveNext
        
      End If
更改为
If not Rs.EOF Then
        Beep
        Rs.MoveNext
End If

Answer 3

你在Private Sub Next_Click()中没有给cmbHth.Text = Rs!gcID赋值啊.