buscar por caracteres en vb6

[alfa_28]

hala muchachos me pueden ayudar en esto:
   tengo un text1 y un dbgrid1 conectado a una tabla Almacen
   bueno yo al ingresar texto en el text1 quiero que lo busque en el dbgrid
   segun a los caracteres ingrezados bueno espero que me entiendan. porque ya lo e intentado y no me sale
de antemano agradezco y saludos

[CeLaYa]

puedes hacer una consula SQL usando el LIke

SELECT * FROM Tabla Where campo LIKE ' & text1.text & *'

[MORFEO_2]

creo q no entendi jejej un ejemplo de lo que entendi

quieres escribir un caracter o una cadena de caracteres a buscar (identificar en otro control) ejemplo si tengo un text1 donde e escrito  "hola amigos como estan"  quieres que si yo ingreso en un text2 la palabra amigos  me diga si esta o no en el text1  jajaja po me enrede fui abducido por un marciano jejej

bueno si es el caso aqui un code de ejemplo


Private Sub Command1_Click()
busca
End Sub
Sub busca(Optional ByVal bs As Integer)
Dim a As Integer
Dim b As String
b = Text2.Text
If Len(b) Then
a = InStr(bs + 1, Text1.Text, b)
If a > 0 Then
Text1.SelStart = a - 1
Text1.SelLength = Len(b)
  Text1.SetFocus
  Else
      MsgBox "No se encuentra: " & Chr$(13) & b, vbDefaultButton1, """"

       End If
End If

End Sub


controles a usar  dos text  y un command
bueno si no entendi y raye la papa pues no me pesques pero si es de lo que hablas te recomiendo q te interiorices en tratamiento de cadenas bueno solo si es el caso  bye bye