DBCombo 控件的属性

vb 中 DBCombo1 的值为客房号DBCombo2 客房类型 怎么根据DBCombo2 选好的客房类型在DBCombo1显示出相应的客房号 连接的是ACCESS 数据库 这段代码要怎么写？？急 各位 告诉 教教我~~~ 还有怎么让DBComo 的下拉值是唯一的不重复的属性中那个有这种功能？

你这是典型的下拉列表数据加载问题，
一个下拉列表的值改变时，另一个下拉列表中的数据重新加载。
既然数据在数据库中，你可以直接用SQL语句来取数据呀，我给你一个例子，你改一下就能用。


Private Sub Combo3_LostFocus()
On Error GoTo comm_err '错误处理机制
  If Trim(Combo3.Text) = "" Then
  Exit Sub
  Else
   
  Dim i As Integer '循环变量
  Dim strSQL As String '定义SQL字符串
  Dim rsSql As New ADODB.Recordset '定义数据集
   
  Combo4.Clear
  strSQL = "SELECT distinct [county_name]FROM [TY_data_text].[dbo].[area_data] where provinces_name ='" & Trim(str_filter(Combo2.Text)) & "' and city_name ='" & Trim(Combo3.Text) & "' "
  rsSql.Open strSQL, AdoCn, adOpenStatic '从数据库取数据到数据集
  For i = 1 To rsSql.RecordCount
  Combo4.AddItem rsSql!county_name '加载区县级名称
  rsSql.MoveNext
  Next i
  rsSql.Close
  End If
   
  Exit Sub
comm_err:
End Sub

这段代码是用什么控件连接的数据库？ 我用data 连的 要是用Data 怎么写？