Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data\db.mdb"
Data1.RecordSource = "SELECT DISTINCT 所属乡名称 FROM 乡名称"
Data1.Refresh
Data2.DatabaseName = App.Path & "\data\db.mdb"
Data2.RecordSource = "select 所属村社 from 乡名称 where 所属乡名称= 'DBCombo2.Text'"
Data2.Refresh
End Sub

我汗一下。。。。。。。。。。。。。。。。

斑竹    问题还是没有解决啊  ????

数据绑定一下啊，

DBCOMBO3

很明显这不是SQL的问题 。。。是楼主没有正确的用VB。。。