Visual Basic - Ayuda urgente !!!!!

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 Roman:
Prueba a poner Set en vez de Dim, ya que son objetos:
Set cnn As New ADODB.Connection
Set rsx As New ADODB.Recordset

Espero que te de resultado.

Saludos
Ana

Si pruebas asi:

rs.Open strsql, cnn, adOpenDynamic, adLockOptimistic

??? Salio.

No es ResultSet, sino RECORDSET.
No confundas, ya que el resultset es de java.