Buscar en una base de datos en Visual Basic 6.0

Declaración de variables
Public RSAfiliados As New ADODB.Recordset


Yo usé un flexgrid que llamé flex.

Private Sub BuscarCedula_Click()
'codigo para buscar un registro
Dim ced As String, cednum As Double

ced = InputBox("Digite el número de la cédula", titulo)

If ced = Empty Then
    Exit Sub
End If
'almacena la cédula digitada
cad = "select * from AFILIADOS where cedula = " & ced

If RSAfiliados.State = 1 Then
RSAfiliados.Close
End If
RSAfiliados.Open cad, CNDatos, adOpenStatic, adLockReadOnly
If RSAfiliados.EOF Then 'si no existe la cédula
      MsgBox "No se encontraron afliados con ese número de cédula", vbOKOnly, titulo
Else
Call llenarcampos
End If
End Sub

Private Sub llenarcampos()
Dim i As Integer, j As Integer
vdatos = RSAfiliados.GetRows(RSAfiliados.RecordCount)
With flex
flex.Clear
.FormatString = "|^No|<NOMBRES|<APELLIDOS|^CEDULA|<DIRECCION|^TELEFONO|<BARRIO|"
'ajusta el ancho de las columnas
.ColWidth(0) = 0
.ColWidth(1) = 300
.ColWidth(2) = 1500
.ColWidth(3) = 2000
.ColWidth(4) = 1000
.ColWidth(5) = 2000
.ColWidth(7) = 1760
'rellena el color de fondo de cada fila por medio
       
      

For i = 0 To flex.Cols - 1
flex.Col = i
For j = 1 To flex.Rows Step 2
flex.Row = j
flex.CellBackColor = &HE0E0E0
Next j
Next i
'coloca los datos en el grid


For i = 1 To UBound(vdatos, 2) + 1
    flex.Row = i
    For j = 0 To 7
    flex.Col = j + 1
    flex.Text = vdatos(j, i - 1)
    Next j
    Next i
End With
End Sub