Erreur RS recordset (3001)

Bonjour,

je ne comprend pas pourquoi j'ai cette erreur,
alors que le " microsoft activex data object" est cocher, mais pas DAO 3.6 object library lorsque j'essay de cocher access me notifie que la biblio d'objet est déjà utilisé??? lorsque je verfie dans la liste elle ne l'est pas?

je crois que le prob vient de biblio appart ça voici mon code, le code bloque dans la ligne souligner:

Private Sub Commande4_Click()


DoCmd.RunSQL "drop table dbo.TabIntervalEnqRegl"

sqlIntEch = "select dbo.TabEnquetregl.N_PERMIS, dbo.TabEnquetregl.Date_Reception, dbo.TabEnquetregl.date_report into dbo.TabIntervalEnqRegl" & _
" from dbo.TabEnquetregl"
DoCmd.RunSQL sqlIntEch

'sqlechh = " insert into dbo.TabIntervalEnqRegl" & _
'" Select dbo.TabEnquetregl.N_PERMIS, dbo.TabEnquetregl.Date_Reception, dbo.TabEnquetregl.date_report from dbo.TabEnquetregl"
'DoCmd.RunSQL sqlechh
'
sqlIntEch2 = "alter table dbo.TabIntervalEnqRegl" & _
" add rappel_reception datetime, rappel_report datetime"
DoCmd.RunSQL sqlIntEch2
'
DoCmd.RunSQL "drop table tabRegTm"
DoCmd.RunSQL "create table tabRegTm(N_Permis nvarchar(30),rappel_reception datetime, rappel_report datetime)"
'
'
Dim rsreg As ADODB.Recordset
Dim rsintregreg As ADODB.Recordset

Set rsreg = New ADODB.Recordset
Set rsintreg = New ADODB.Recordset
''
rsreg.Open "[TabEnquetregl]", con, 1, 3
rsintreg.Open "[tabRegTm]", con, 1, 3
'
Do While rsreg.EOF = False
N_Permis = rsreg("n_permis")
date_recp = rsreg("Date_Reception")
date_repo = rsreg("date_report")
date_real = rsreg("date_realisation")

If date_repo = "" And date_real = "" Then
date_recp = DateAdd("d", 10, [date_recp])

Else

    If date_repo <> "" And date_real = "" Then
    date_repo = DateAdd("d", 10, [date_repo])
    End If

End If

recherche:
rsreg.MoveNext
Loop
GoTo MAJ
'
suite:
rsintreg.AddNew
rsintreg("n_permis") = N_Permis
rsintreg("rappel_reception") = date_recep
rsintreg("rappel_report") = date_repo
rsintreg.Update
Debug.Print N_Permis, "_", date_recep, "_", date_repo

GoTo recherche
'mise à jour table InterEch
MAJ:
sqlIntFinal = "update dbo.TabIntervalEnqRegl" & _
" set" & _
" dbo.TabIntervalEnqRegl.rappel_reception=dbo.tabRegTm.rappel_reception" & _
" dbo.TabIntervalEnqRegl.rappel_report=dbo.tabRegTm.rappel_report" & _
" from dbo.tabRegTm" & _
" where" & _
" dbo.tabRegTm.n_permis=dbo.TabIntervalEnqRegl.n_permis"
DoCmd.RunSQL sqlIntFinal

con.Close
Set con = Nothing
Set rsreg = Nothing
Set rsintreg = Nothing


End Sub