' create the empty DB file
        Dim cat As New ADOX.Catalog()
        cat.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
          "Source=c:\temp\mydata.accdb")
        cat = Nothing
 
        ' create the empty table in the DB file
        Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\temp\mydata.accdb" _
          & ";Persist Security Info=True")
        conn.Open()
        Dim cmd As New OleDb.OleDbCommand("", conn)
        cmd.CommandText = "CREATE TABLE ICM (cn CHAR, mail CHAR," & _
          "userCertificate CHAR);"
        cmd.ExecuteNonQuery()
        conn.Close()

        For I = 0 To DataGridView1.ColumnCount - 1
 
            cmd.CommandText = "ALTER TABLE LOGBOOK ADD COLUMN [" & _
              DataGridView1.Columns(I).Name & "] CHAR"
            cmd.ExecuteNonQuery()
 
        Next