localizar registro en tdbgrid

[Insomnia]

Hola

Te dejo el código que utilizo, en mi caso voy filtrando los datos, pero supongo que lo podrás adaptar a tus necesidades. El código es para buscar un proveedor, y en el formulario tengo un combo para seleccionar por que campo de la tabla desea buscar, creando una select diferente para cada caso.

Código:

Private Sub Text1_Change()

    If Reg.State Then Reg.Close
    Me.MousePointer = 11
    If Len(Trim(Text1.Text)) > 0 Then
        Select Case Combo1.Text
            Case "Nombre"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where empresa like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Tipo Empresa"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where [tipo empresa] like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Observaciones"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where observaciones like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Dirección"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where direccion like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Población"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where poblacion like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Provincia"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where provincia like '%" & Trim(Text1.Text) & "%' Order by empresa"
            Case "Pais"
                Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores where pais like '%" & Trim(Text1.Text) & "%' Order by empresa"
        End Select
    Else
            Reg.Source = "select empresa, telefonos, Observaciones,Direccion,Poblacion,Provincia,Pais from proveedores Order by empresa"
    End If
            
    Reg.Open
    
    With Rejilla
        Set .DataSource = Reg
        .Refresh
    End With
    
    Formato_Grid
    Me.MousePointer = 0
    
End Sub

--Saludos--