about get next record.
for example:

Dim rs As Recordset
Private Sub nextrecord_Click()

strsql = "select username from regedit "
Set rs = db.OpenRecordset(strsql)
rs.Movenext
txtFields.Text = rs.Fields(0).Value
End Sub