CodeItBetter Programming Another VB Programming Blog

'Database - How to link to an external Foxpro table.
Sub Link_External()
    ' This procedure creates a new tabledef and links a FoxPro 3.0 table to it by
    ' setting the Connect and SourceTableName properties.

    Dim dbs As Database, tdf As TableDef
    Dim strPath As String
 
    Set dbs = OpenDatabase(strPath)
    ' Create a new tabledef in a Microsoft Jet database.
    Set tdf = dbs.CreateTableDef("Employees")
    ' Set the Connect and SourceTableName properties to link the tabledef.
    With tdf
        .Connect = "FoxPro 3.0;DATABASE=Path"
        .SourceTableName = "Emp"
    End With
    ' Append the linked tabledef.
    dbs.TableDefs.Append tdf
End Sub