Mostra informacion en un MSHFlexgrid

[spiderman78]

Que tal gracias por la respuesta,ya hice la modificaciones pero ahora me muestra otro error

Código:

Public mhs As Recordset

Código:

Private Sub Combo1_click()
    Call VisualizarPacientes
    recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
    frmConsulta.Show
    Set frmConsulta.mhs. = recbd - -----------Error
End Sub

error= method or data member not found


Saludos y Gracias por la ayuda