vb连接SQL后,对记录集的操作总出问题!

Question

给你上一个的代码：
Private Sub up_Click()
  If Ado1.Recordset.RecordCount <> 0 Then
          Ado1.Recordset.MovePrevious
          If Ado1.Recordset.BOF Then
             Ado1.Recordset.MoveLast
          End If
          Text1.Text = Ado1.Recordset.Fields(0).Value
          Text2.Text = Ado1.Recordset.Fields(1).Value
          Combo1.Text = Ado1.Recordset.Fields(2).Value
          Text4.Text = Ado1.Recordset.Fields(3).Value
          Combo2.Text = Ado1.Recordset.Fields(4).Value
          Text6.Text = Ado1.Recordset.Fields(6).Value
          DTP1.Value = Ado1.Recordset.Fields(5).Value
   Else
       MsgBox "没有学生信息", vbInformation + vbOKOnly, "系统提示"
   End If
   
End Sub

Answer 1

rs.movefrist
rs.moveNext
rs.move Number

Answer 2

If NOT ( Ado1.Recordset.Eof or Ado1.Recordset.Bof) Then