Problema con l'odbc

[McGyver78]

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

[McGyver78]

Il problema sopra l'ho risolto ma qualsiasi user id metto mi accetta sempre la connession

myConnection.Open "DSN=db1;User Id='admin1';Password='admin'"