Private Sub Command1_Click()
getRecordSet
connRs.Source = "Select * From Users"
connRs.Open
If connRs.EOF = True Then
connRs.MoveFirst
Else
connRs.MoveNext
Text1.Text = connRs!UserID
Text2.Text = connRs!password
Text3.Text = connRs!userRole
End If
End Sub

This is a MoveNext command button but whenever i click it will only move to the second row of the database and will not proceed on.

getRecordSet is a sub in my module that opens a connection and set the recordset

i closes the recordset after loading the data from db into a listbox