[VB+Excel] Errore '3079' su apertura di due recordset (era:Auito VB Excel)

[cla80]

Come mai non mi fa aprire due recordset contemporaneamente in VBA Excel:

Ossia:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim nome, mese, anno, dipe, codd As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim i, j, z As Integer
Dim SQL, SQL1 As String

cn.CursorLocation = adUseServer
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=z:\db\GestDip.mdb;Mode=ReadWrite;Persist Security Info=False"
rs.CursorLocation = adUseServer
rs.ActiveConnection = cn
i = 1
Set fc = ThisWorkbook.Worksheets(i)
z = 7
SQL = "SELECT * FROM DIP"
rs.Open SQL

Ecco, adesso se volessi aprire un altro recordset mi segnala un errore di automazione:
Error Run-time '3079'

o meglio dopo il codice appena inserito eseguo questa operazione:

SQL1="SELECT * FROM RPDBF2"
'punto su di un altra tabella
rs1.Open SQL1
'qui da errore 3079

La domanda è: non mi fa aprire piu di un recordset contemporaneamente, perchè se procedo a chiudere il recordset funziona, però io voglio piu di un recordset aperto contemporaneamente.

AIUTOOO

[cla80]

aiutatemi please