Uso questo codice per aprire i db e per aprire i recordset.
Volevo sapere se ci sono errori, e come modificare questo codice per fare in modo che sia possibile aprire due connessioni a due db diversi contemporaneamente visto che cosi' mi da errore grazie
Ciao

Questo codice si trova all'interno di un modulo

Public connConnection As New ADODB.Connection
Dim rsRecordset As ADODB.Recordset

Sub OpenDB(NameDB As String, Optional User As String, Optional Password As String)

Value = connConnection.State
If Value = 0 Then
connConnection.Open NameDB, User, Password
End If
End Sub

Sub CloseDB()
Value = connConnection.State
If Value > 0 Then connConnection.Close
Set connConnection = Nothing
End Sub

Function LoadRecordSet(Campo As String, Tavola As String, Optional Condiz As String, Optional OrdBy As String, Optional GroupBY As String) As Recordset

'On Error GoTo err:
'*
'************************************************* ************
'* Parametri di Input Obbligatori : Campo, Tavola
'* Parametri di Input Facoltativi : Condiz, OrdBY, GroupBy
'************************************************* ************
'*
Dim strSELECT As String
Dim rstat As Integer

Set rsRecordset = New ADODB.Recordset

rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic


strSELECT = "SELECT " + Campo + " FROM " + Tavola

If (Trim(Condiz) <> "") Then
strSELECT = strSELECT + " WHERE " + Condiz
End If

If (Trim(GroupBY <> "")) Then
strSELECT = strSELECT + " GROUP BY " + GroupBY
End If

If (Trim(OrdBy <> "")) Then
strSELECT = strSELECT + " ORDER BY " + OrdBy
End If
'*
'* State = 0 RecordSet Closed
'* State = 1 RecordSet Opened
'*
rstat = rsRecordset.State
If (rstat <> 0) Then rsRecordset.Close
rsRecordset.Source = strSELECT
rsRecordset.ActiveConnection = connConnection
rsRecordset.Open
Set LoadRecordSet = rsRecordset
Set rsRecordset = Nothing
'err:
' If err <> 0 Then
' If rsRecordset.State <> 0 Then rsRecordset.Close
' Set rsRecordset = Nothing
' End If
End Function
Function Ap(Value As String) As String
Ap = "'" & Value & "'"
End Function