Erro ao Digitar Texto

[soloplayer 0]

Olá amigos, estou com uma aplicacao em VB6.0 so que tem um campo de meu form com o nome: txtcod

e quando digito em texto nole para gravar no banco mysql ele da o erro:

 

 

erro: Unknown Column 'textoDigitado'in 'where clause' e o comando é esse:

 

Adodc1.RecordSource = "SELECT * FROM barras where cod = " & txtcod	Adodc1.Refresh	If Not Adodc1.Recordset.EOF Then		MsgBox "Erro código ja existente", vbInformation, "Código cadastrado"		txtcod.SetFocus 'joga o foco na caixa código	Exit Sub 'sai dessa rotina (sub)	End If

o que faco amigos????

[soloplayer 0]

Olá amigos consegui ficou assim: Adodc1.RecordSource = "SELECT * FROM barras where cod In ( '" & txtcod.Text & "'" & ")"