Public Function DropUser() As Boolean
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim strStoredProc As String
    Dim strMsg As String
    Dim param As ADODB.Parameter

    On Error GoTo err_PROC

    'Open connection to SQL Server database
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=sqloledb;Data Source=<instancename>;" _
            & "Initial Catalog=<databasename>;Integrated Security=SSPI;"
    cnn.Open


    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdText
    
    'Drop user from database.
    strStoredProc = "execute sp_dropuser @name_in_db='" & strLogin & "'"
    cmd.CommandText = strStoredProc
    cmd.Execute
    
    'Drop Login from SQL Server
    strStoredProc = "sp_droplogin @loginame='" & strLogin & "'"
    cmd.CommandText = strStoredProc
    cmd.Execute
    DropUser = True

exit_PROC:
    Set cmd = Nothing
    Set cnn = Nothing
    Exit Function

err_PROC:
    Debug.Print Err.Description
    Resume exit_PROC

End Function