Bonjour à toutes et à tous!

J'ai un petit souci avec Access qui m'empêche de finaliser mon projet. Je m'explique.
Pour ouvrir un de mes formulaires, j'exécute une requête SQL en passant par un morceau de code qui: "Set rs=currentDb.OpenRecordset (strsql)".
Lors du développement, aucun souci. Sauf que pour finaliser le projet, j'ai fractionné ma base en deux (table d'un coté et le reste de l'autre). Du coup maintenant, j'ai des tables liées et VBA bloque sur ce morceau de code en m'indiquant:
Erreur d'exécution '3048';
Impossible d'ouvrir plus de bases de données.
Voici le code qui s'exécute à l'ouverture du formulaire:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub leslignes()
Dim rs As DAO.Recordset
Dim strsql As String
Dim i As Integer
'selction des opérations en fonction du journal
strsql = "SELECT T_annuaireADM.ID_contact_ADM, T_annuaireADM.[A quitté entreprise], T_annuaireADM.[Affectation service ADM] FROM T_annuaireADM WHERE (((T_annuaireADM.[A quitté entreprise])=False)AND(T_annuaireADM.[Affectation service ADM]=""3""));"
Set rs = CurrentDb.OpenRecordset(strsql)
 'sinon on parcout pour recupérer les ID
    rs.MoveFirst
    rs.Move 6 * lapage
    For i = 1 To 6
    If Not rs.EOF Then
    tblligne(i) = rs(0)
    rs.MoveNext
    Else
    tblligne(i) = 0
    End If
    Next i
'End If
rs.Close
Set rs = Nothing
End Sub
J'ai bien essayé de chercher sur internet des solutions cependant, je n'ai pas trouvé. J'espère avoir été assez clair dans mes explications.

Pouvez-vous m'aider à résoudre ce souci?

Cordialement,