DataCombo y Sentencia Select

[lokoman]

Hola!!
Intenta asi:

Código vb:

If rsConsulta7.EOF = False Then
'EL BOUNDCOLUMN DEL DATACOMBO DEBE SER "ID_MEDICO" o el codigo del medico, SIN LAS COMILLAS
'EL DATAFIELD DEL DATACOMBO DEBE SER "ID_MEDICO"  o el codigo del medico, SIN LAS COMILLAS
 
     Set DataMedico.RowSource=rsConsulta7
     DataMedico.BoundText=1
     DataMedico.ListField="NombreMedico"
End If