LStr_DatenbankName = GStr_Aktien_Pfad$ + GStr_Aktien_Datei$ & ".MDB"
        'Datenbank aus COM anlegen
        Dim cat As Catalog = New Catalog()
        cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" + _
          LStr_DatenbankName + ";" & "Jet OLEDB:Engine Type=5")
        'Datenbank öffnen
        Dim ConnString As String = "Provider=Microsoft.JET.OLEDB.4.0;data" & _
          "source=" + LStr_DatenbankName
        Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
        OleDbConn.Open()
        Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()
        MyOleDbCommand.Connection = (OleDbConn)
        'Tabelle AKTIEN anlegen
        LStr_SQL = "CREATE TABLE AKTIEN "
        LStr_SQL = LStr_SQL + "(NR LONG NOT NULL,"
        LStr_SQL = LStr_SQL + "AKTIE CHAR(40) NOT NULL,"
        LStr_SQL = LStr_SQL + "INFO CHAR(200) NOT NULL,"
        LStr_SQL = LStr_SQL + "LOESCHSCHUTZ INTEGER NOT NULL)"
        MyOleDbCommand.CommandText = LStr_SQL
        MyOleDbCommand.ExecuteNonQuery()
        'Tabelle AKTIENKURSE anlegen
        LStr_SQL = "CREATE TABLE AKTIENKURSE "
        LStr_SQL = LStr_SQL + "(NR LONG NOT NULL,"
        LStr_SQL = LStr_SQL + "AKTIENFIRMA CHAR(40) NOT NULL,"
        LStr_SQL = LStr_SQL + "KURSLOW DOUBLE NOT NULL)"
        MyOleDbCommand.CommandText = LStr_SQL
        MyOleDbCommand.ExecuteNonQuery()
        'Datenbank schließen
        OleDbConn.Close()

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de