Mostra informacion en un MSHFlexgrid

[spiderman78]

Que tal miren ya anduve investigando un poco mas, y bueno sigo sin poder mostrar mi informacion de un consulta en un mshflexgrid, miren este es mi codigo de la consulta y este es el momento q le hago click a un registro, no me marca ningun error simplemente no me muestra mi informacion en el mshflexgrid, como comentario se q es por q no he agregado mis datos en el mshflexgrid, pero no se q instruccion ocupar para q en base a mi consulta me muestre la informacio

Código:

Private Sub ConsultaAgenda()
    Dim agenda As ADODB.Recordset
    Dim sql As String, cadena As String
    Dim X As Integer
        cadena = Combo1.Text
    Call VisualizarAgenda
        sql = "SELECT * FROM agenda WHERE paciente0 Like '" & cadena & "'"
    Set agenda = New ADODB.Recordset
        agenda.Open sql, BD, adOpenKeyset, adLockOptimistic
    If agenda.BOF = True Or agenda.EOF = True Then
        MsgBox "Paciente sin Citas Agendadas"
    Exit Sub
    End If
       
End Sub

Private Sub Combo1_Click()
    Call VisualizarAgenda
    agenda.Find ("paciente0='" & Combo1.List(Combo1.ListIndex) & "'")
    frmConsulta.Show
    Call ConsultaAgenda
End Sub

Saludos y gracias por la ayuda