Script d'identification

Re à tous,

Je dispose de deux morceaux de code permettant de saisir un identifiant et un mot de passe mais je ne sais pas comment les intégrer à ma macro principale qui m'ouvre une page internet:

Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "entre ton mot de passe:"
strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "ton mot de passe est: " & strPassword

et la deuxième, je ne sais pas si elle est complémentaire ou nécessaire...

Private Sub CommandButton1_Click()
Dim strSQL As String
Dim rstConn As ADODB.Recordset
Dim objmyconn As ADODB.Connection

Set objmyconn = OpenSQLServerDB(dominiquegourdy@aol.com, "sandrine")

Set rstConn = CreateObject("ADODB.RecordSet")

strSQL = "SELECT password FROM Users" & _
"WHERE user_login=" & Me.txtLogin.Value & " ;"

rstConn.Open strSQL, objmyconn


If rstConn.EOF = True Then
MsgBox "Login incorrect"
Else
If rstConn.Fields(0) = Me.txtPwd.Value Then
MsgBox "Connexion réussi"
rstConn.Open "UserForm2"
Else
MsgBox "Mot de passe éroné"
End If
End If

rstConn.Close
Set rstConn = Nothing
End Sub


Merci pour toute aide éventuelle