Gracias.
Para que aprendan como lo hice, lo postearé aqui:
Lo hice de la siguiente manera, y deje el combobox:
--------------------------------------
Private Sub CmbContactos_
DropDown ()
Dim a As String
If CnDatos.State = 1 Then CnDatos.Close
If RsTblDatos.State = 1 Then RsTblDatos.Close
CnDatos.Open "dbDatos"
CmbContactos.Clear
RsTblDatos.Open "Select Distinct Nombre from TblDatos", CnDatos, 3, 3
While Not RsTblDatos.EOF
a = RsTblDatos!Nombre & ""
CmbContactos.AddItem (a)
RsTblDatos.MoveNext
Wend
CnDatos.Close
End Sub
--------------------------------------
Si se fijan, lo puse en un evento de DropDown, eso significa que cuando el combobox baje su ventanita, el hará la rutu\ina colocada, ;)
Me empiesa a gustar mucho el mundo de la programing...
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--