Comment faire pour passer à l'enregistrement suivant dans MS Access

Je suis nouveau dans MS access 2007 de programmation..
Je veux obtenir des informations de la base de données un par un.Mais le code que j'utilise n'est pas l'exécution de cette. Si je suis sur le premier disque, puis il va directement vers le dernier enregistrement qui je ne veux pas. Je veux le prendre au prochain record..
Voici mon code:

Private Sub MoveNextBttn_Click()
    Dim db As Database
    Set db = CurrentDb
    Dim str As String
    str = "SELECT * FROM Table_Emp_Info"
    Dim rst As Recordset
    Set rst = db.OpenRecordset(str)
    Dim xxx As Integer
    xxx = 1

    'If the recordset is empty, exit.
    If rst.EOF Then
       Exit Sub
    End If

    Do Until rst.EOF
        Emp_ID_Text.Value = rst.Fields("EmpID")
        Rowsource_Designation.Value = rst.Fields("Designation")
        RowSource_Dept.Value = rst.Fields("Dept")
        DOJ_Text.Value = rst.Fields("Date_Of_Joining")
        rst.MoveNext
         'xxx = xxx + 1
    Loop

    rst.Close

End Sub
InformationsquelleAutor vinay | 2011-07-19