Imports System.Data.OleDb
Imports System.IO

Public Class Form1
  Private sDatabasePath As String = "MyNewEmptyUsers.mdb"
  Private sTableName As String = "MyNewUsers"

  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    Datenbank_und_Tabelle_erstellen()
  End Sub

  Private Sub Datenbank_und_Tabelle_erstellen()
    Dim fi As New FileInfo(sDatabasePath)
    If fi.Exists Then
      If MessageBox.Show("Die Datenbank existiert bereits." & _
          vbNewLine & "Sie können diese zunächst löschen, " & _
          " wenn Sie sie neu erstellen wollen." & vbNewLine & _
          "Soll die existierende DB wirklich gelöscht werden?", _
          "DB jetzt löschen?", _
          MessageBoxButtons.YesNo, _
          MessageBoxIcon.Exclamation) = _
          Windows.Forms.DialogResult.Yes Then

        File.Delete("MyNewEmptyUsers.mdb")

        MessageBox.Show("Die Access-Datenbank wurde gelöscht!", _
            "Die DB wurde gelöscht!", _
            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
      Else
        Exit Sub
      End If
    End If

    Dim catalog As Object
    catalog = CreateObject("ADOX.Catalog")
    catalog.create( _
        "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        sDatabasePath)

    MessageBox.Show("Die Datenbank wurde neu erstellt", _
        "Neue Access-Datenbank", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)

    Dim conn As OleDbConnection = New OleDbConnection( _
        "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
        & sDatabasePath)
    conn.Open()

    Dim sql As String = "CREATE TABLE " & sTableName & "(" & _
      "ID COUNTER NOT NULL CONSTRAINT PK_ID_no PRIMARY KEY, " & _
        "UserName       Varchar(30) NOT NULL, " & _
        "Passwort       Varchar(10) NOT NULL, " & _
        "Email          Varchar(50), " & _
        "Anrede         Varchar(20), " & _
        "VorName        Varchar(50), " & _
        "NachName       Varchar(50), " & _
        "Kommentar      Text(100), " & _
        "Erster         DateTime, " & _
        "Kontakte       Integer DEFAULT 0, " & _
        "Letzter        DateTime DEFAULT Now, " & _
        "Konto          Currency DEFAULT 0.0," & _
        "Ok             Bit DEFAULT TRUE" & _
        ")"

    Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)
    cmd.ExecuteNonQuery()
    conn.Close()

    MessageBox.Show("Die neue Datenbank" & vbNewLine & _
        sDatabasePath & vbNewLine & vbNewLine & _
        "mit der Tabelle" & vbNewLine & _
        sTableName & vbNewLine & vbNewLine & _
        "wurde erfolgreich erstellt!", _
        "Erfolgreich erstellt: DB und Tabelle", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)

    Process.Start("MyNewEmptyUsers.mdb")
  End Sub
End Class