Private sDatabasePath As String = "D:\TIG Logfile\TIG-Logfile-DB.mdb"
    Private sTableName As String = "TIG Logfile"
 
    Private Sub Datenbank_und_Tabelle_erstellen()
        Dim File As New FileInfo(sDatabasePath)
        If File.Exists Then
            Exit Sub
        Else
            Dim Catalog As Object
            Catalog = CreateObject("ADOX.Catalog")
            Catalog.Create( _
                "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
                sDatabasePath)
            Dim Connection As OleDbConnection = New OleDbConnection( _
                "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
                & sDatabasePath)
            Connection.Open()
            Dim sql As String = "CREATE TABLE" & sTableName & "(" & _
                "Datum PRIMARY KEY, " & _
                "Zeit       Varchar(30), " & _
                "System     Varchar(30), " & _
                "User       Varchar(30), " & _
                "Aktion     Varchar(30), " & _
                ")"
            Dim cmd As OleDbCommand = New OleDbCommand(sql, Connection)
            Connection.Close()
        End If
    End Sub