' 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()