Changing a User Password with SQL command
Sub ChangeUserPassword() Dim conn As ADODB.Connection On Error GoTo ErrorHandler Set conn = CurrentProject.Connection conn.Execute "ALTER USER yourName PASSWORD primate passw" ExitHere: If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close End If Set conn = Nothing Exit Sub ErrorHandler: Debug.Print Err.Number & ":" & Err.Description Resume ExitHere End Sub