vb中2个datacombo控件联动

数据库中有2个表，一个是zen（乡镇列表），一个是cun（村列表），第一个datacombo控件显示乡镇，选择后，第二个控件显示该乡镇的村，代码该如何设置？（下面是我的代码，属性设置部分有错误，请高手指正）
Option Explicit
Dim cn As adodb.Connection
Dim rs As adodb.Recordset

Private Sub Form_Load()
Set cn = New adodb.Connection
Set rs = New adodb.Recordset

cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" _
& "data source=" _
& "d:\my documents\lingaidangan.mdb"
cn.Open
rs.Open "select * from zhen", cn, adOpenStatic, adLockOptimistic
With DataCombo1(0)
Set .RowSource = rs
.ListField = "乡镇"
.BoundColumn = "乡镇编号"
Set .DataSource = rs
.DataField = "乡镇编号"
End With
End Sub
Private Sub DataCombo1_Change(Index As Integer)
If Index = 0 Then
rs.Close

vb中DataCombo控件问题 如何把数据库中的内容都显示在vb中的datacombo控件中？ vb的datacombo控件的小问题 VB编程中2个窗口数据如何来转换。 VB中如何获得2个字符之间的内容 2个VB问题 2个vb问题 vb中msflexgrid是个什么控件? VB中2个计时器的问题``郁闷好久```老师说是VB反应太快？求高人解答 vb中如何从键盘中读取1个键