Visual Basic - Ayuda urgente , por favor!!!

Hola amigos, necesito hacer un programa para mi escuela el cual tiene una base de datos en access. Yo lo que quiero saber es como compruebo que el usuario y la comtraseña es correcta , bueno si alguien me puede ayudar gracias , saludos
Les dejo el codigo que tengo , me da un error en .open

Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rsx As New ADODB.Recordset
Dim strsql As String
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source").Value = "G:\Programa\Base.mdb"
.Properties("User ID").Value = "x"
.Properties("Jet OLEDB:System Database").Value = ""
.Properties("Password").Value = ""
.Open
End With



'Cargo el ResulSet con los registros
strsql = "SELECT * FROM Base WHERE Contraseña='" & Text2.Text & "' AND username='" & Text1.Text & "'"
rsx.Open (strsql)

'Me fijo si es vacio el ResultSet
If Not rsx.BOF Then
'no es vacio
Else
'es vacio


End If

End Sub

HOLA

YO LO HARIA DE LA SIGUIENTE MANERA

strsql = "SELECT * FROM Base WHERE Contraseña='" & Text2.Text & "' AND username='" & Text1.Text & "'"
SET RSX= CNN.EXECUTE(STRSQL)
IF RSX.EOF=TRUE THEN
AVISO " NO SE ENCONTRO, USUARIO Y CONTRASEÑA"
EXIT SUB
ENDIF
RSX.CLOSE

SE CARGA EL PROGRAMA

ESPERO TE SIRVA , SALUD2