با استفاده از این کد دیگر نیازی به ایجاد یک جدول جدید ندارید ضمنا در اکسس پروجکت هم جواب میده .Private Sub Combo5_GotFocus()
Combo5.RowSource = ""
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
If Not obj.name Like "Msys*" Then
Combo5.RowSource = obj.name & ";" & Combo5.RowSource
End If
Next obj
End Sub