Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Connect to database with user name and password

Sub addUser()     Dim myConnection As ADOX.Catalog    Dim newUser As ADOX.User    Dim userName As String    Dim newPassword As String        Set myConnection = New ADOX.Catalog    myConnection.ActiveConnection = _         "Provider = Microsoft.Jet.OLEDB.4.0;" & _         "Data Source=C:\r.mdb;" & _         "Jet OLEDB:System database=C:\r.mdw;" & _         "User id=john;Password=;"    Set newUser = New ADOX.User    newUser.Name = userName    myConnection.Users.Append newUser    myConnection.Users(newUser.Name).changePassword "", newPassword End Sub