consulta select + count + where + between??

[jeaguiar25]

Buenas compañeros foreros. Poseo una tabla con ésta estructura

ID Fecha NombreMedico1 Vinculo1 NombreMedico2 Vinculo2 NombreMedico3 Vinculo3 NombreMedico4 Vinculo4
1 01/01/2015
2 02/01/2015
3 03/01/2015


Lo que necesito es filtrar mediante un combobox o datacombo (generalmente utilizo éste último), en el cual optaría entre Contrato, Renta o Venta para que me llene un listview de la siguiente manera:
*Por ejemplo.....Si elijo Contrato que llene la primer columna del listview con el Nombre de las personas que poseen contrato dentro de la columna NombreMedico1 +NombreMedico2+NombreMedico3+NombreMedico4 y en una segunda columna....que me cuente el total de veces que se repite. Tengo otra tabla donde están guardados los nombres de los trabajadores y su tipo de vínculo, asi que el Inner no deja de ser una opción. Cuelgo el codigo en el cual trabajo .....obviamente me cuenta solamente la primer columna.

Código:

 RsResMed.Open "SELECT COUNT(NombreMedico1) AS CantMedico1,NombreMedico1 FROM GuardiasMedicas " & _
"WHERE FechaGuardia BETWEEN (#" & Format(DTPickerDesde, "yyyy/mm/dd") & "# )AND (#" & Format(DTPickerHasta, "yyyy/mm/dd") & "#) " & _
"AND Vinculo1 = '" & StrMedi & "' GROUP BY NombreMedico1 " & _
"UNION SELECT COUNT(NombreMedico2) AS CantMedico2,NombreMedico2 FROM GuardiasMedicas " & _
"WHERE FechaGuardia BETWEEN (#" & Format(DTPickerDesde, "yyyy/mm/dd") & "# )AND (#" & Format(DTPickerHasta, "yyyy/mm/dd") & "#) " & _
"AND Vinculo2 = '" & StrMedi & "' GROUP BY NombreMedico2 " & _
"UNION SELECT COUNT(NombreMedico3) AS CantMedico3,NombreMedico3 FROM GuardiasMedicas " & _
"WHERE FechaGuardia BETWEEN (#" & Format(DTPickerDesde, "yyyy/mm/dd") & "# )AND (#" & Format(DTPickerHasta, "yyyy/mm/dd") & "#) " & _
"AND Vinculo3 = '" & StrMedi & "' GROUP BY NombreMedico3 " & _
"UNION SELECT COUNT(NombreMedico4) AS CantMedico4,NombreMedico4 FROM GuardiasMedicas " & _
"WHERE FechaGuardia BETWEEN (#" & Format(DTPickerDesde, "yyyy/mm/dd") & "# )AND (#" & Format(DTPickerHasta, "yyyy/mm/dd") & "#) " & _
"AND Vinculo4 = '" & StrMedi & "' GROUP BY NombreMedico4 ", cnn, adOpenDynamic, adLockBatchOptimistic

cargar el listview lo cargo asi....
[CODE]While (RsResMed.EOF = False)

Set li = ListViewResumenMedico.ListItems.Add(, , RsResMed("NombreMedico1"))
li.ListSubItems.Add , , RsResMed("CantMedico1")
[CODE]