单击组合框后显示数据库的某一列,这个代码错那里了?

我组合框combo1,当我用combo1的click事件时,msgbox"1",结果任何显示都没有
我想显示数据库中的某一列,如下代码
Private Sub Comcountry_Click()

    Dim j As Integer
    rscountry.close
    rsopen "select distinct 国家 from country", rscountry
       While rscountry.EOF <> True
           Comcountry.AddItem rscountry.Fields("国家").Value
          j = j + 1
            rscountry.MoveNext
        Wend
End Sub
数据库是连上的,可是当单击组合框时什么都没有,邪门了