Public Function SQLServerAddUser(UserName As String, Password As String, oConn As ADODB.Connection, Optional Database As String) As Boolean On Error GoTo ErrFailed 'Add user to database oConn.Execute "USE Master" If Len(Database) Then 'Use the same database as the connection oConn.Execute "EXEC sp_addlogin " & UserName & "," & Password & "," & Database oConn.Execute "USE " & Database Else 'Use a different database to the connection oConn.Execute "EXEC sp_addlogin " & UserName & "," & Password & "," & oConn.DefaultDatabase oConn.Execute "USE " & oConn.DefaultDatabase End If 'Grant user access to Database in public group oConn.Execute "EXEC sp_adduser " & UserName SQLServerAddUser = True Exit Function ErrFailed: Debug.Print "Error in SQLServerAddUser: " & Err.Description SQLServerAddUser = False End Function 'Demonstration routine Sub Test() Dim sConString As String Dim oConn As ADODB.Connection sConString = "Provider=SQLOLEDB.1;" sConString = sConString & "User ID=sa;password=mypassword;" sConString = sConString & "Initial Catalog=MyDatabase;" sConString = sConString & "Data Source=MySQLServer;" oConn.Open sConString SQLServerAddUser "TestUser", "TestPassword", oConn End Sub