erro 80040e21 com texto diferente

[tjoao2005 0]

Olá pessoal,

Eu tenho um simples formulario de login desenvolvido no VB com acesso ao SQL 7, o problema é que eu não consigo fazer o acesso, toda vez que eu passa valor alfanumerico dá o seguinte erro " Rum Time error 80040e21 Não há suporte para as propriedades solicitadas", e o debug aponta justamente para a consulta SQL selecionada abaixo.

Detalhe se eu passar NUMERO ele encontra os demais valores e continua a execução do programa normalmente.

 

Se você's puderem me ajudar ficarei muito grato

Obrigado at+

 

(VIDE CODIGO)

 

 

Form load()

 

Set Rs_Autentica = New ADODB.Recordset

Rs_Autentica.LockType = adLockOptimistic

Rs_Autentica.CursorLocation = adUseServer

Rs_Autentica.ActiveConnection = Cn

 

End sub

 

 

Private Sub CmdOK_Click()

Rs_Autentica.Open "SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO = " & Text1.Text & " AND AUT_SENHA=" & Text2.Text & ""

If Not Rs_Autentica.EOF Then

FORM1.Show

Rs_Autentica.Close

Else

MsgBox "Informação invalida"

Rs_Autentica.Close

End If

End Sub

 

 

SQL

 

CREATE TABLE TB_AUTENTICACAO_AUT

(AUT_CODIGO INT NOT NULL IDENTITY(1,1) PRIMARY KEY,

AUT_USUARIO VARCHAR (10),

AUT_PERMISAO VARCHAR (5),

AUT_SENHA VARCHAR (10))

 

INSERT INTO TB_AUTENTICACAO_AUT VALUES ('GERMIS','CT','GERMIS')

INSERT INTO TB_AUTENTICACAO_AUT VALUES ('CONTROLLER','GS','CONTROLLER')

INSERT INTO TB_AUTENTICACAO_AUT VALUES ('CPD','CF','CPD')

INSERT INTO TB_AUTENTICACAO_AUT VALUES ('USUARIO','AT','USUARIO')

 

SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO='CPD' AND AUT_SENHA='CPD'

[Dennys Lopes 0]

Tente colocar aspas simples tambem:Rs_Autentica.Open "SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO = '" & Text1.Text & "' AND AUT_SENHA='" & Text2.Text & "'"

[tjoao2005 0]

GRAAAANNNNDE...!!!!!!! FUNCIONOU.!!!!!!!!!!!!!!MUITO OBRIGADO!

Tente colocar aspas simples tambem:Rs_Autentica.Open "SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO = '" & Text1.Text & "' AND AUT_SENHA='" & Text2.Text & "'"

[Dennys Lopes 0]

De nada ...Lembre-se .... sempre que utilizar instruções SQL, insert, delete, update, select .... com campos alfanumericos, utilize aspas simples e duplas para concatenar: '" & txtNome & "' ... ja para campos numericos utilize apenas aspas duplas: " & txtID & "Qualquer coisa é só perguntar