linking data between dbcombo boxes

[dglienna]

I found this, and it may help you:

Option Explicit
 
Private Sub cboStudent_Click(Area As Integer)
 Dim Y As Single
 Dim StrQuery1 As String
 
 txtStudNo.Text = cboStudent.BoundText
 
 StrQuery1 = "select teacher_name & ', ' & teacher_first as t_name,teacher_name,teacher_no from teacher inner join stud_teach on teacher.teacher_no = stud_teach.st_teacher_no where stud_teach.st_student_no = " & Val(cboStudent.BoundText)
 datTeacher.RecordSource = StrQuery1
 datTeacher.Refresh
 
End Sub
Private Sub Form_Load()
Dim file_name As String
Dim strQuery As String
 
    file_name = App.Path
    If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
    file_name = file_name & "Example.mdb"
 
    datTeacher.DatabaseName = file_name
    datStudent.DatabaseName = file_name
 
 strQuery = " select teacher_name & ', ' & teacher_first as t_name,teacher_name,teacher_no from teacher order by teacher_name"
 datTeacher.RecordSource = strQuery
 datTeacher.Refresh
 
End Sub