Rdo Para Acessar Access

[Guest - Aline -]

Estou utilizando RDO para fazer a conexão entre VB6 e Access.

Mas quando utilizo o seguinte código:

SQL = "SELECT Nome FROM Recursos "

SQL = SQL & "WHERE ID = '" & txtusuario.Text & "' "

SQL = SQL & "AND Senha = '" & txtSenha.Text & "' "

Set rdRes = DbCn.OpenResultset(SQL, rdOpenStatic, , rdExecDirect)

O VB emite o erro: Parâmetros insuficientes.Eram esperados 1.

Alguém pode me ajudar???

[Joaozava]

Acho que é poque você esta usando Aspas simples no campo "ID" (Acho q Id seja um campo numerio, neste caso não necessita de Aspas simples ).

Acho q se você fizer assim da certo:

sql = "SELECT Nome FROM Recursos "
sql = sql & "WHERE ID = " & txtusuario.Text & ""
sql = sql & "AND Senha = '" & txtSenha.Text & "' "

Espero ter ajudado!

Abraços.

[@line]

Não ID é um campo string mesmo.

[Decio]

Minha sugestão é:

SQL = "SELECT Nome,ID,Senha FROM Recursos " ...etc...

Se você fizer um select somente pelo campo nome, os campos ID e Senha não podem ser usados.