Puedes probar digitando en un textbox el dato a consultar y con un command, aunque si lo deseas evitas el command y agregas el codigo al evento keypressed del texbox, el codigo seria mas o menos asi:
Private Sub CmdBuscar_Click()
'Declaro las variables
Dim moRecordset As New ADODB.Recordset
Dim msSql As String
Dim mbEncontro As Boolean
' Creo el SQL
mbEncontro = False
If Trim(Txtcedula) <> "" Then
mbEncontro = True
msSql = " Select *"
msSql = msSql + " from tabla"
msSql = msSql + " Where campo = '" + Trim(Txtcedula) + "'"
End If
'Ejecuto la sentencia en SQL
If Trim(msSql) = "" Then Exit Sub
If mbEncontro = False Then Exit Sub
moRecordset.Open msSql, goDatabase, adOpenStatic, adLockOptimistic
'limpio el grid para que no entre basura
MSFlexGrid.Clear
MSFlexGrid.Rows = 1
'Indico el ancho del grid
MSFlexGrid.ColWidth(0) = 1000
MSFlexGrid.ColAlignment(0) = 1
MSFlexGrid.ColWidth(1) = 1350
With MSFlexGrid
'Titulo de la columna personalizado
.Row = 0
.Col = 0
.Text = "Nombre 1"
.CellFontBold = True
.Row = 0
.Col = 1
.Text = "Nombre 2"
.CellFontBold = True
'Asi hasta obtener el total de columnas del flexgrid
End With
If Not moRecordset.EOF And Not moRecordset.BOF Then
Do While Not moRecordset.EOF
MSFlexGrid.AddItem moRecordset.Fields(1).Value + Chr$(9) + moRecordset.Fields(2).Value
Txtcedula.Text = Trim(moRecordset.Fields(0).Value)
moRecordset.MoveNext
Loop
moRecordset.Close
Else
MsgBox "Datos que Busca no existen !!!", vbCritical, "Atención"
Txtcedula.SetFocus
End If
Exit Sub
Txtcedula.SetFocus
End Sub
