[VBA] Errore a runtime: necessario oggetto

[Aki]

ave populus
sto cercando di accedere ad un db as400 da excel sfruttando ADO ed una connessione ODBC DSN-less
il codice che ho prodotto a codesco scopo è il seguente:

Dim conn As Connection, CellaAtt As Range
Set conn = CreateObject("ADODB.connection")
Dim str As String
Set str = "Driver=iSeries Access ODBC Driver; Server=192.168.xxx.xxx; 
Uid=xxx; Pwd=xxx; System=s44a3312;"
conn.Open str
Dim rs As Recordset, sql As String
Set sql = "SELECT CPCO,CUMV, QGF2RXG from MERSY_DB.RXGIGI0F 
where cart=1618 and carv=1 AND TAAD=2005 AND 
TMMI=7 AND TGGM=8"
Set rs = CreateObject("ADODB.Recordset")
rs.Open conn, sql
i = 1
Set CellaAtt = ActiveCell
CellaAtt = "UNO"
CellaAtt.Offset(1, 0) = "DUE"
CellaAtt.Offset(2, 0) = "TRE"
Do While rs.EOF = False
    i = i + 1
    CellaAtt.Offset(0, i) = rs.Fields(0)
    CellaAtt.Offset(1, i) = rs.Fields(1)
    CellaAtt.Offset(2, i) = rs.Fields(2)
    rs.movenext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

cosa c'è che non và visto che se lo eseguo mi dice:

Errore di compilazione
Necessario oggetto

Premetto che di VBA non so 'na cippa

[alka]

Originariamente inviato da Aki
cosa c'è che non và visto che se lo eseguo mi dice:
Premetto che di VBA non so 'na cippa

Non credo che la connessione "DSN-less" c'entri qualcosa con il tuo problema, quindi modifico il titolo della discussione in modo appropriato, anche perchè hai utilizzato il medesimo titolo per una discussione recente.

Ciao!

[Aki]

ah una cosa
la stringa di conn è giusta xchè ho anche fatto x prova una pagina asp con la stessa stringa, e funzica

[Aki]

Originariamente inviato da alka
Non credo che la connessione "DSN-less" c'entri qualcosa con il tuo problema, quindi modifico il titolo della discussione in modo appropriato, anche perchè hai utilizzato il medesimo titolo per una discussione recente.

Ciao!

ok grassie

[VanessaInfo]

..metterei un f9 per vedere dove si impalla..
cmq a okio..nn vedo movefirst....

ciao

vaneX