Visual Basic - Ayuda con Combo

Necesito su ayuda:

Cuando abro un formulario(consultas.frm) desde el principal(medicina.frm), existe un combobox que arrastra los datos de una base de datos al combo, pero como existen muchos datos quiero filtrar datos que contengan la un registro en especial, que puedo hacer??

'supongamos que la tabla se llama medicamentos

'Unas de las opciones es cargar solo los datos de la tabla del medicamento actual en un recordSet
'Tomando en cuenta que la conexión se llama CE

Dim a As Recordset
Set a = New Recordset
a.ActiveConnection = CE
a.LockType = adLockOptimistic
a.CursorType = adOpenStatic
a.Open "select * from Med_Medicamento where codigo='" & medicina.Codigo.Text & "'" ,CE

' Cargas el Combo con los datos especificos del RecordSet

Do While Not a.EOF
Dosis.AddItem (a!dosis)
Dosis.Text = a!dosis
a.MoveNext
Loop
Dosis.ListIndex = 0

esto solo cargara los datos del Medicamento que esta cargado en el From Medicina

esto es solo una pequeña idea, basica