bueno la verdad es que tengo que trabajar con dataenviroment aun no estoy en objetos ado lo que necesito es generar un filtro como en el hotmail elijes un pais y en el otro datacombo te sale las ciudades, pero en mi caso elijo la ciudad y el datacombo(distrito) me tiene que generar los distritos registrados con el nombre o codigo de la ciudad al que pertenecen, bueno esto es lo que hice y no me resulto :

.GRACIAS
Private Sub DataCiudad_Click(Area As Integer)
If DataCiudad <> Empty Then
DataSistema.rsCmdDistritos.Filter = "Codciudad=" + DataCiudad.BoundText
DataSistema.rsCmdDistritos.Requery
DataDistrito.ListField = "Codciudad=" + DataCiudad.BoundText
DataDistrito.Refresh
End If
End Sub