[Resolvido] Vb 6.0-->Access (again)

Boas,

Mais uma vez estou com um problema que não consigo resolver.

Fiz o mesmo que tinha feito num outro form para o Login do utilizador, mas o novo dá erro :S tá igual

CODE
Private Sub confirmar_Click()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ATI(pen)\MDB\projectotecnologico.mdb;Persist Security Info=False"

cn.Open

**rs.Open "SELECT * From Trabalhadores WHERE (estado = True) and (aut_reg_trb=true) and (password = '" & upass.Text & "') and (n_funcionário = " & userid.Text & ")", cn, 3, 3**

If rs.EOF Then

MsgBox "Username ou password incorrectos!", vbExclamation, "ERRO"

Else

...

end if

end sub

dá erro na linha a negrito, diz "Object required"

Alguém pode dar uma ajuda??

Cumps