Dim conn As New OleDb.OleDbConnection(connstring)
        Try
            Dim cmd As New OleDb.OleDbCommand( _
            "Create table DataTable (ID int not null primary key, Data text)" _
            , conn)
            conn.Open()
            Dim res As Integer = cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            conn.Close()
        End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist