Error al consultar datos en tabla access 2003 con VB6

Hola buenas noches, tengo un apuro, tengo este código para hacer una consulta a un registro en una tabla de access usando visual basic 6.0, el problema es que siempre que consulta solo lo hace en el primer registro, la verdad pienso que esta mal la lógica o que falta alguna otra función para que el cursor baje. Espero pueda ayudarme. Soy un novato en esto, si tienes una especie de guía o recomendaciones que puedas darme, te estaré agradecido!

Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\proyecto\datos.mdb"
.Open
End With
Set rs1 = New ADODB.Recordset
With rs1
.ActiveConnection = cn
.Source = "proveedores"
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.Open Options:=adCmdTableDirect
comparar = rs1!codprov
Do While (rs1.EOF = False) And (comparar <> cod)
rs1.MoveNext
If (comparar = cod) Then
codprov.Enabled = False
nomprov.Enabled = False
tlfprov.Enabled = False
emailprov.Enabled = False
rifprov.Enabled = False
Dirprov.Enabled = False
fechainicionprov.Enabled = False
Observaprov.Enabled = False
estatusprov.Enabled = False
codprov.Text = rs!codprov
nomprov.Text = rs!nomprov
tlfprov.Text = rs!tlfprov
emailprov.Text = rs!emailprov
rifprov.Text = rs!rifprov
Dirprov.Text = rs!Dirprov
fechainicionprov.Text = rs!fechainicioprov
Observaprov.Text = rs!Observapro
estatusprov.Text = rs!estatusprov
Me.Refresh
Exit Do
End If
Loop
.Close
End With
Set rs1 = Nothing
Set cn = Nothing
End Sub