取县和取地区有分别吗? 不就是多个限制地区的条件嘛
就用你的代码改一点点就有了
sql = "select * from 县 where 地区 = '" + combo1.text+"'"
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
combo2.clear
For i = 1 To rs.RecordCount
combo2.AddItem rs.Fields(1)
rs.MoveNext
Next i
rs.Close
Set rs = Nothing