Llenar el datacombo

Tengo un problema con el datacombo, no se llena con los datos que elijo, Te paso mis códigos, haber si me das una mano..
Private Sub Form_Load()
'ABRIR TABLA INFORMES
abrir_informes
llenar_campos
'ABRIR TABLA ALUMNOS
abrir_alumnos
DataCombo1.ListField = "alumno"
Set DataCombo1.RowSource = rsalumnos
'VUELVO A ABRIR LA TABLA INFO
Set rsinfo = New ADODB.Recordset
rsinfo.CursorLocation = adUseClient
sqlinfo = "select * from informes"
rsinfo.Open sqlinfo, cnn, adOpenDynamic, adLockOptimistic
End Sub
Public Sub llenar_campos()
If rsinfo.BOF Then Exit Sub
If rsinfo.EOF Then Exit Sub
cbohs(0).Text = rsinfo.Fields("hora1")
cbohs(1).Text = rsinfo.Fields("hora2")
cbodias(0).Text = rsinfo.Fields("dia1")
cbodias(1).Text = rsinfo.Fields("dia2")
cbomatri.Text = rsinfo.Fields("matricula")
cbomeses(0).Text = rsinfo.Fields("inicio")
cbomeses(1).Text = rsinfo.Fields("pago")
cboinstrumento.Text = rsinfo.Fields("instrumento")
Text1.Text = rsinfo.Fields("dia de pago")
DataCombo1.Text = rsinfo.Fields("alumno2")
End Sub
Private Sub DataCombo1_change()
rsalumnos.MoveFirst
alumno = DataCombo1.Text
sqlalumnos = "select alumno * from alumnos"
DataCombo1.RowSource sqlalumnos
rsalumnos.Find "alumno='" & Trim(DataCombo1.Text) & "'"
If rsalumnos.EOF Then
Else
End If
End Sub
**********************************************************
CÓDIGO DEL MODULO
Global cnn As ADODB.Connection
Global rsalumnos As ADODB.Recordset
Global rsinfo As ADODB.Recordset
Global sqlalumnos As String
Global sqlinfo As String
Public Sub conectar()
Set cnn = New ADODB.Connection 'DEFINO EL OBJETO
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.ConnectionString = "C:\Documents and Settings\Admin\Escritorio\clases2\clases2.mdb"
cnn.Open
End Sub
Public Sub abrir_alumnos()
Set rsalumnos = New ADODB.Recordset 'DEFINO EL OBJETO RECORSET
'ABRO LA TABLA ALUMNOS
sqlalumnos = "select *from alumnos"
rsalumnos.Open sqlalumnos, cnn, adOpenDynamic, adLockOptimistic
End Sub
Public Sub abrir_informes()
Set rsinfo = New ADODB.Recordset 'DEFINO EL OBJETO RECORDSET
'ABRO LA TABLA
sqlinfo = "select * from informes"
rsinfo.Open sqlinfo, cnn, adOpenDynamic, adLockOptimistic
End Sub
***********************************************************************
Las tablas son :
ALUMNOS(Alumno, domicilio, teléfono, movile, email)
INFORMES(Alumno2, matricula, instrumento, dia1, dia2, hora1, hora2, pago, inicio, dia de pago)
Desde ya te agradezco la ayuda([email protected])