Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create user for Access database

Sub addUser()    Dim myConnection As ADODB.Connection    Dim newUser As ADOX.User    Set myConnection = New ADODB.Connection    With myConnection         .Provider = "Microsoft.Jet.OLEDB.4.0"         .Properties("Jet OLEDB:System database") = "C:\demo.mdw"         .Open "Data Source=c:|BegVBA\store.mdb;User ID=JohnSmith;Password=;"         .Execute ("CREATE USER jane [mycat] NULL")        End With End Sub