Erro no Login

Boas, sou novo por aqui e preciso de uma ajudita.

Estou a fazer um programa em VB6 em que é necessário efectuar Login para aceder ao programa, já andei a ver no fórum e não encontrei a resposta a este erro, mas encontrei como se faz a ligação http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

Aqui está o código:

CODE
Private Sub Command1_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

 sql = "SELECT * FROM Trabalhadores WHERE n_funcionário = '" & userid.Text & "' and password = '" & upass.Text & "'"

 ** rs.Open sql, cn**

 If rs.EOF Then

 MsgBox "erro"

 Else

 ...

 end if

rs.Close

cn.Close

End Sub

O programa está a dar erro na linha a negrito, o erro é o seguinte: "Tipo de dados incorrecto na expressão de critérios"

O que está mal feito? Podem ajudar?

Cumps