الكتابة في جدولين

السلام عليكم ورحمة الله تعالى وبركاته

ابحت عن طريقة لكتابة بيانات في الجول (أ) وفي نفس الوقت كتابة معلومات اخرى في الجدول (ب)

الطريقة التي اعمل بها هي تعريف دالة Connect في Module ودالة Deconnect في نفس الـModule واستدعيهما عند الحاجة

Public Db As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public Sql As String




Public Sub connect()

On Error GoTo fin

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\fkgbase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=fkg007"


        Exit Sub
fin:
    MsgBox "Erreur d'ouverture de La Base", vbExclamation
End Sub


Public Sub deconnect()

On Error GoTo fin
    Rs.Close
    Set Rs = Nothing
    Db.Close
    Set Db = Nothing
    Exit Sub
fin:
    MsgBox "Erreur de Fermeture de La Base", vbExclamation
End Sub

كود الزر الدي به المشكل

Call connect
Call GetRef
Datepc = DateValue(Now)

Rs.Open "[Certificatdepreuve]", Db, adOpenKeyset, adLockOptimistic

    Rs.AddNew
    Rs.Fields("Proprietaire") = Text1.Text
    Rs.Fields("AnnédeFabrication") = Text3.Text
    Rs.Fields("Constructeur") = Text2.Text
    Rs.Fields("NumerodeFabrication") = Text6.Text
    Rs.Fields("Lieudel'épreuve") = Text4.Text
    Rs.Fields("Datedel'épreuve") = Text5.Text
    Rs.Fields("Circonstanced'épreuve") = Text7.Text
    Rs.Fields("Prochaineépreuve") = Text8.Text
    Rs.Fields("Naturedel'appareil") = Text9.Text
    Rs.Fields("Demandeur") = Text12.Text
    Rs.Fields("Pressiondeservice") = Text10.Text
    Rs.Fields("Pressiond'epreuve") = Text18.Text
    Rs.Fields("Capacité") = Text19.Text
    Rs.Fields("Poinçon") = Text14.Text
    Rs.Fields("Naturedugaz") = Text16.Text
    Rs.Fields("OBSERVATION") = Text15.Text
    Rs.Fields("CONCLUSION") = Text17.Text
    Rs.Fields("Client") = ClientNom
    Rs.Fields("Ref") = Hexv
    Rs.Fields("Date") = Datepc
    Rs.Update
Call deconnect

Call connect
Rs.Open "[reference]", Db, adOpenKeyset, adLockOptimistic

    Rs.AddNew

Rs.Fields("c/r nom") = "Certificat d'epreuve pipe line"
Rs.Fields("ref") = Hexv

Call deconnect

الكود يقوم بتسجيل البيانت في الجدول الاول لكن لا يقوم بتسجيل المعلومات في الجدول التاني ويعطيني الرسالة

 MsgBox "Erreur d'ouverture de La Base", vbExclamation

الترجمة : خطأ في غلق قاعدة البيانات

كيف اقوم بحل هدا المشكل ؟