Function ConnectSource(DBF As String, Tenbang As String)

    Dim db As Database, tb As TableDef
    Set db = CurrentDb
    On Error Resume Next
    DoCmd.RunSQL ("drop table " + Tenbang)
    On Error GoTo 0
    Set tb = db.CreateTableDef(Tenbang)
    tb.Connect = ("FoxPro 2.6;Database=path")
    tb.SourceTableName = DBF
    db.TableDefs.Append tb
    Set db = Nothing
End Function

Tương tự, nếu muốn nối tới dbase,bạn thay Foxpro bằng Dbase..

- Nếu muốn link tới một File Access có mật khẩu bạn thay dòng in đậm như sau:

tb.Connect = (";pwd=******;Database=path")