Link Table into Access with VB

[RSJIG]

Does anyone know the DAO equivalent in ADO to linking a text file to an access database with Visual Basic

Thanks


DAO EXAMPLE

Dim dbs As Database
    Dim tdfSales As TableDef
    Dim rstSales As dao.Recordset
    Dim strsql As String
    
    
    Set dbs = OpenDatabase(CustomerMaster)
    Set tdfSales = dbs.CreateTableDef("tccom010")
 
tdfSales.Connect = "Text;DSN=tccom010100;FMT=Delimited;IMEX=2;HDR=NO;DATABASE=" & STxtDir
 
    tdfSales.SourceTableName = sTxt010
 
     On Error Resume Next
    
    Set rstSales = dbs.OpenRecordset("SELECT tccom010.* From tccom010;")
    
    
    
    If Err.Number <> 0 Then
        rstSales.Close
        Set rstSales = Nothing
    Else
        rstSales.Close
        Set rstSales = Nothing
        dbs.TableDefs.Delete "tccom010"
    End If
    
    Err.Clear
    
    
    dbs.TableDefs.Append tdfSales