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