Åbne og lukke Dba

Jeg har en stor app med mange forme og tabeller
I appen kalder jeg:

Public Sub OpenRecordset_Sub(SQL As String, Dba As Database, rs As Recordset)
      Dba As Database, rs As Recordset
      Set Dba = CurrentDb()
      Set rs = Dba.OpenRecordset(SQL, dbOpenSnapshot)
end sub
.
.  ( Koder såsom:    rs.FindFirst "[LinieId]=  ,  If Not rs.EOF  osv...)
.
Public Sub CloseRecordset_Sub(Dba As Database, rs As Recordset)
      rs.Close
      Dba.Close
      Set rs = Nothing
      Set Dba = Nothing
end sub

Et stykke inde i App'en kan jeg få:
Fejl 3014 Der kan ikke åbnes flere tabeller 

Jeg har måske 10-15 tabeller åbne
Jeg er sikker på jeg altid afslutter med Close alligevel får jeg ofte fejlen

Kan man på nogen måde modificere mine koder ovenfor så evt gamle åbne
tabeller lukkes effektivt inden nye åbnes