Hi can any one please help me with creating a secure database with ADO or ADOX if possible, ive got this code already but its not accessible through VisData so i cant easily modify it at all.
-
Public Function CreateDatabase()
-
Dim cat As ADOX.Catalog
-
Dim tbl As ADOX.Table
-
Dim con As ADODB.Connection
-
-
On Error Resume Next
-
Kill txtDatabaseName.Text
-
On Error GoTo 0
-
-
Set cat = New ADOX.Catalog
-
-
cat.Create _
-
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
-
"Data Source=" & QueryValue(rk, "InstallDir") & "\CD Database.mdb;"
-
-
Set con = Nothing
-
Set tbl = Nothing
-
Set cat = Nothing
-
MsgBox "Done"
-
End Function
-
but that doesnt make it secure and also can someone tell me how to access a secure database with ado.
Any help would be much appreciated.
Kind Regards
Devon.
