Con questo codice se voglio scandire il record successivo mi da errore, so che invece dell'if ci vuole il while però il nextRecordSet no funziona

myConnection.Open "DSN=db1;UID=admin;PWD=admin"

If myConnection.State = adStateOpen Then
objRS.Open "tabella", myConnection, adOpenDynamic, adLockUnspecified, adCmdText

If IsNull(objRS!codice) = False Then
Text1.Text = objRS!codice
End If
objRS.NextRecordset