vb中如何将两个组合框中的多项内容进行绑定？急需解答！！！

Option Explicit

Private Sub Combo1_Click()
If Combo1.Text = "专业" Then
Combo2.Clear
Combo2.AddItem "英语"
Combo2.AddItem "数学"
Combo2.AddItem "物理"
ElseIf Combo1.Text = "民族" Then
Combo2.Clear
Combo2.AddItem "满族"
Combo2.AddItem "汉族"
Combo2.AddItem "回族"
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "专业"
Combo1.AddItem "民族"
End Sub

用combobox的Click() 事件,
sql = "select * from "表名" where "字段名"= & combobox2
Set myrs1 = mydata.OpenRecordset(sql)
这时myrs1就是你想要数据的集合,再进行写入到msflexgrid

If myrs1.EOF = False Then
myrs1.MoveFirst
Do While Not myrs1.EOF
z = z + 1
myrs1.MoveNext
Loop
End If
myrs1.MoveFirst

Dim i As Integer
i = 1
With MSF1
.Rows = z + 1
.Row = 0
If myrs1.EOF = False Then
myrs1.MoveFirst
Do While Not myrs1.EOF
.Row = .Row + 1
For i = 1 To myrs1.Fields.Count
.TextMatrix(.Row, i) = myrs1.Fields(i - 1)
Next i
myrs1.MoveNext
Loop

End If
End With