VB combox控件的使用方法

我的数据库 表里面的这样的数据
ID 省份 城市
1 广东 汕头
2 广东 广州
3 广东 深圳
4 浙江 金华
5 浙江 杭州
6 浙江 永康
7 福建 厦门
8 福建 福州


我的窗体有两个COMBOX控件  
第一个就是要读取省份里的不相同的（到时读出来里同的内容为:广东，浙江，福建）
第二个就是,当我选择COMBOX 1 里面不同的省份时， COMBOX2 就是出现对应省份的城市
例如， 我选 广东，就出现，汕头，广州，深圳， 选择浙江就出现： 金华，杭州，永康 

求代码 或实例，谢谢先

Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.Text
  Case "广东"
  Combo2.Text = "汕头"
  Combo2.AddItem "汕头"
  Combo2.AddItem "广州"
  Combo2.AddItem "深圳"
  Case "浙江"
  Combo2.Text = "金华"
  Combo2.AddItem "金华"
  Combo2.AddItem "杭州"
  Combo2.AddItem "永康"
  Case "福建"
  Combo2.Text = "厦门"
  Combo2.AddItem "厦门"
  Combo2.AddItem "福州"
  Combo2.AddItem "永康"
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "广东"
Combo1.AddItem "浙江"
Combo1.AddItem "福建"
Combo1.Text = "请选择省份"
Combo2.Text = "请先选择省份"
End Sub



我是小白 高手勿喷