database

You should take a look at ADO+ADOX
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscadocodeexamples.asp

Dette er en måde at gøre det på. Du skal blot huske at sætte en reference til ADO og ADOX.

Private Sub Command1_Click()
    Dim tabl As ADOX.Table
    Set tabl = New ADOX.Table
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Dim Cat As ADOX.Catalog
    Set Cat = New ADOX.Catalog
   
    'Cat.Create "Provider=MICROSOFT.JET.OLEDB.4.0;data source=d:\Hula.mdb"
   
    conn.Provider = "MICROSOFT.JET.OLEDB.4.0"
    conn.ConnectionString = "D:\Hula.mdb"
    conn.Open
    Cat.ActiveConnection = conn
   
    'Cat.Tables.Delete "tmp"
   
    tabl.Name = "tmp"
    tabl.Columns.Append "F1", adWChar
    tabl.Columns.Append "F2", adWChar
    tabl.Columns.Append "F3", adWChar
    Cat.Tables.Append tabl
   
    'conn.Execute "INSERT INTO Tmp SELECT * FROM [Text;Database=d:\;HDR=YES].[del.txt]"
   
    conn.Close
    Set Cat = Nothing
    Set conn = Nothing
End Sub

VH CK

Hov der var lige sneget sig nogle fejl ind. Du får den lige igen :-))

Private Sub Command1_Click()
    Dim tabl As ADOX.Table
    Set tabl = New ADOX.Table
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Dim Cat As ADOX.Catalog
    Set Cat = New ADOX.Catalog
   
    Cat.Create "Provider=MICROSOFT.JET.OLEDB.4.0;data source=d:\Hula.mdb"
   
    conn.Provider = "MICROSOFT.JET.OLEDB.4.0"
    conn.ConnectionString = "D:\Hula.mdb"
    conn.Open
    Cat.ActiveConnection = conn
     
    tabl.Name = "tmp"
    tabl.Columns.Append "F1", adWChar
    tabl.Columns.Append "F2", adWChar
    tabl.Columns.Append "F3", adWChar
    Cat.Tables.Append tabl
   
    conn.Close
    Set Cat = Nothing
    Set conn = Nothing
End Sub

VH CK