Visual Basic - Problema con consulta desde visual 6

Private Sub Buscar_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open "dsn=bodega2"
txtsql = "select * from productos where codigo ='" & Text1.Text & "'"
Set rs = con.Execute(txtsql)
If rs.EOF = True Then
Adodc1.RecordSource = txtsql
Adodc1.Refresh
DataGrid1.Refresh
MsgBox "PRODUCTO NO EXISTE"
Text2.Text = ""
Exit Sub
End If
Text3 = rs!cantidad
Text7 = rs!stock_actual
Text2 = rs!nombre_producto
con.Close
End Sub
hago está consulta de busqueda pero me dice el tipo de datos no corresponde el codigo es autonumerico y se cae en la linea
Set rs = con.Execute(txtsql) no me ejecuta la busqueda.
gracias por la ayuda.