Dim Felderdef As String = ""
 
        ' create the empty DB file
        Dim cat As New ADOX.Catalog()
        cat.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dateiname)
        cat = Nothing
 
        ' create the empty table in the DB file
        Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dateiname & _
          ";Persist Security Info=True")
        conn.Open()
        Dim cmd As New OleDb.OleDbCommand("", conn)
 
        cmd.CommandText = "CREATE TABLE LOGBOOK "
        cmd.ExecuteNonQuery()
 
 
        For I = 0 To DataGridView1.ColumnCount - 1
 
            cmd.CommandText = "ALTER TABLE LOGBOOK ADD COLUMN [" & _
              DataGridView1.Columns(I).Name & "] CHAR"
            cmd.ExecuteNonQuery()
 
 
        Next
 
        conn.Close()