Public Function CreateDatabase(DatabaseFullPath As String) As Boolean
Dim BAns As Boolean
Dim Cat As New ADOX.Catalog()
Try
Dim sCreateString As String
sCreateString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & DatabaseFullPath
Cat.Create(sCreateString)
BAns = True
Dim Conx As New OleDb.OleDbConnection
Dim Cmd As New OleDb.OleDbCommand
Conx.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = " _
+ "C:\Users\Documents\cardbase.mdf"
Conx.Open()
Cmd.Connection() = Conx