[VB6] MultiConnect

[Petra]

Ciao a tutti...in pratica ho due form con un DataGrid al loro interno. All'evento Load viene richiamata la function Connetti e all'evento Unload viene richiamata la function Disconnetti. Apro la Form1 e il DataGrid1 al suo interno mi mostra il recordset che ho richiamato tramite la mia prima stringa Sql...fin qui tutto bene...apro la Form2 e il DataGrid2 al suo interno mi mostra il recordset che ho richiamato tramite la mia seconda stringa Sql...ed anche fin qui tutto ok...chiudo una delle due Form e si chiude tranquillamente...chiudo la Form restante e mi esce questo errore:

Errore di run-time '91':

Variabile oggetto o variabile del blocco With non impostata

Private cn As ADODB.Connection
Private strDataUrl As String
Private strCn As String
Private rs As ADODB.Recordset
Private strSql As String

Public Function Connetti(strSql1 As String, dataName As DataGrid)
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strDataUrl = "Data\data.mdb"
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strDataUrl
strSql = strSql1

cn.CursorLocation = adUseClient
cn.Mode = adModeShareDenyNone
cn.Open strCn
rs.Open strSql, cn, 3, 3

Set dataName.DataSource = rs
End Function

Public Function Disconnetti()
rs.Close ' Questa è la linea che il Debug mi segnala 
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function

Dato che in questo programma ho bisogno di aprire diversi Recordset nella stessa connessione, vorrei sapere se qualcuno di voi conosce un modo migliore!!! Grazie!!

[Luciano79]

Anzichè una singola variabile, non puoi utilizzare un vettore rs?
rs(IndiceRs)

[xegallo]

Originariamente inviato da Petra

Public Function Disconnetti()
rs.Close ' Questa è la linea che il Debug mi segnala 
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function

Public Function Disconnetti()
if not(rs is nothing) then
   rs.Close ' Questa è la linea che il Debug mi segnala 
   Set rs = Nothing
end if
if cn.state <> adstateclose then
   cn.Close
end if
Set cn = Nothing
End Function

[Petra]

[Petra]

Originariamente inviato da xegallo

Public Function Disconnetti()
if not(rs is nothing) then
   rs.Close ' Questa è la linea che il Debug mi segnala 
   Set rs = Nothing
end if
if cn.state <> adstateclose then
   cn.Close
end if
Set cn = Nothing
End Function

Mi fa lo stesso errore di prima!!!