Using ADODB connects ok, but get "Object doesn't support this property or method"

See my sample code below. I can connect, and all looks good until I get the run-time errormessage when trying to get USER_NAME from r in line 11.

Sub testSql()
    Dim myConnection, myRecord, x, password
    password = InputBox("Passord: ")
    Set myConnection = CreateObject("ADODB.Connection")
    myConnection.Open "Driver={Microsoft ODBC for Oracle};" & "Server=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS =(PROTOCOL=TCP)(HOST = 10.5.159.184)(PORT = 1541)))(CONNECT_DATA=(SERVICE_NAME=tiaqat)));" & "Uid=ive;" & "Pwd=" & password & ";"
    Set myRecord = CreateObject("ADODB.recordset")
    Sql = "SELECT * FROM TOP_USER"
    myRecord.Open Sql, myConnection
    For Each r In myRecord.Fields
       x = r.USER_NAME
    Next
End Sub

Then I am getting a 438-Object doesn't support this property or method-error. I am able to connect and do all sorts of stuff with the same connect string when I use e.g. PL/SQL-developer...

Thx!

Brgds
IVer