rs.MoveFirst
SQL = "codbarras like '" & Text1.Text & "'"
rs.Find(SQL)
if rs.EOF Then
    MsgBox("No se encuentra este producto....)
Else
    TxtProducto = rs!producto
    TxtPrecio = rs!precio
    ... etc
End If