Conectar un combo a mi base de datos y que me despliege los datos de mis tablas

[crucifijo]

Hola amigos diran que como molesto, pero ya que me han solucionado y ayudado muchisimo pues quisiera saber como puedo conectar un combo o hacer que mi combo me despligue los registros de una tabla ya que mi aplicacion base de datos se enscuentra en c:\Horarios\Horarios.mdb
entoces tiene tres tablas que son las siguientes


Profesores Nombre de la tabla 1
IdProfesor
Nombre
Direccion
Telefono

Materias Nombre de la tabla 2
IdMateria
NomMat Nombre de la Materia

Dias Nombre de la tabla 3
Hora
Lunes
Martes
Miercoles
Jueves
Viernes

Entonces yo en mi formulario me conecto a la base de datos de la sig forma

Dim cn3 As New ADODB.Connection
Dim rs3 As New ADODB.RecordSet

Private Sub Form Load()
cn3.Provider = "Microsoft.Jet.OLEDB.4.0"
cn3.ConnectionString = "c:\Horarios\Horarios.mdb"
cn3.open
rs3.open "select * from profesores, materias, dias", cn3, adOpenKeyset, adLockBatchOptimistic
En Sub

yo quisiera que con un combo me desplegara todos los id de los profesores y que cuando selecione un id del profesor automaticamente ponga su nombre del profesor en una caja de texto y asi con el de las materias y con un boton poder guardar los cambios.

Ojala me puedan ayudar ya que la verdad ya no supe como hacer esto, les agradezco su atencion amigos mios