ado控件
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\info.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select distinct 地点 from jiankao"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
        Combo1.AddItem Adodc1.Recordset.Fields.Item(0).Value
        Adodc1.Recordset.MoveNext
Loop
'item根据名称或序号返回集合的特定成员。
'fields包含 Recordset 对象的所有 Field 对象的集合。