[VB6] Connessione a database Oracle

[19matteo78]

salve a tutti...premetto che non sono un drago in vb,anzi......ho un problema che non capisco proprio. mi collego ad un database Oracle con un adodb connection e due recordset.il problema è che devo aprire il primo recordset e,mentre loppo al suo interno devo fare una query col secondo recordset in questa maniera

Private Sub Form_Load()
    
    Dim cod_fis As String

    Dim con As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
   
    ConnectString = "provider=MSDAORA;Data Source=SOURCE;User ID=US;Password=PSW;"
    con.Open ConnectString
    
    Set rs = New Recordset
    Set rs2 = New Recordset

    rs.Open "select T.COD_FISC,T.COGNOME,T.NOME1 from table t Where 
                 t.TIPO_MOV = '5'", con
    
    Do Until rs.EOF
        rs2.Open "select id from nx_comuni Where cap =" & rs!COD_FISC, con
        rs.MoveNext
    Loop
    
    Set rs = Nothing
    Set con = Nothing
   Unload Me
End Sub

quando compilo o creo l'exe e lo faccio partire mi da un errore del tipo
"errore di run-time '3705'
Operation is not allowed when the object is open"

in verità ho provato anche a creare un con2, quindi una seconda connessione, e ad aprirla contemporaneamente alla prima, ma non funziona comunque.

naturalmente se apro solo il primo recordset tutto va.

qualcuno sa darmi una mano

ciao e grazie.

Matteo

[oregon]

Ma scusa, nel ciclo apri rs2 e che ci fai? In ogni caso prima di aprirlo nuovamente, lo devi chiudere ...