أريد مساعدة في هذا الكود

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

بمعنى استبدال الجداول التي كتبتها أنا بجميع الجداول من القاعدة المحددة

Private Sub cmdGo_Click()
      Dim db As Database, obj As Object, tb As TableDef, str As String, db1 As Database
     Set db = CurrentDb
    If IsNull(Me.Mar) Then
        MsgBox " لا بد من إدخال اسم قاعدة البيانات المراد التعامل معها", vbOKOnly, " تنبيه"
     Exit Sub
     End If
       For Each tb In db.TableDefs
        If tb.Name <> "data" And tb.Attributes = 1073741824 Then
        DoCmd.DeleteObject acTable, tb.Name
        End If
     Next
    str = DLookup("nam", "data", "Sch = '" & Me.Mar & "'")
   Set db1 = OpenDatabase("c:\maar95\" & str)
        For Each tb In db1.TableDefs
            If tb.Name = "em_empolyee" Or tb.Name = "monada_Crosstab" Or tb.Name = "sch_school1"  Then
                DoCmd.TransferDatabase acLink, "MicroSoft Access", "c:\maar95\" & str, acTable, tb.Name, tb.Name, 0
             End If
         Next
    DoCmd.Close
    DoCmd.OpenForm "ss"
End Sub