菜鸟求助，将数据库中的数据取出从文本框中输出

Question

我的问题是这样，我有一个数据库，其中有一个字段是省份，里面是全国所有省市地区名，我在窗体里加了一个COMBOBOX，用一个FOR循环，每次ADDITEM一个省名，目的是做一个类似信息注册中的省份选择下拉列表。请问怎样用代码？
我用的是ODBC数据环境

Answer 1

Data1.RecordSource = "select Province from Pro where ProID = " & i
Data1.Refresh
以上是定义要执行的SQL语句，那么这条SQL语句执行以后值放到哪里？怎样把它取出来呢？还请高手指点。
急

Answer 2

dim cn as adodb.connection
dim rs as adodb.recordset
dim strCN as string
dim strSQL as stringset cn = new adodb.connection
set rs = new adodb.recordsetstrCN = "在这里写连接字符串.."
strSQL = "在这里写SQL查询语句.."cn.open strCN
rs.open strSQL,cn
....这里是循环写入的代码....
rs.close
cn.close
set rs = nothing
set cn = nothing

Answer 3

Dim strSql As String
    Dim rs As New ADODB.Recordset
    CenterForm Me
    LoadPic N8200M, True
    '匯合組別資料
    strSql = "select distinct group_code,group_name from group_right "
    If rs.State = adStateOpen Then rs.Close
    rs.Open strSql, pConn, adOpenStatic, adLockReadOnly
    If rs.EOF = True And rs.BOF = True Then
        Combo1.Clear
    Else
        Combo1.Clear
        rs.MoveFirst
        Do While Not rs.EOF
            Combo1.AddItem rs.Fields(0).Value & Space(5) & rs.Fields(1).Value
            rs.MoveNext
        Loop
    End If
這段代碼可以讓你參考一下。它是把表中兩個字段的數據加至combo1控件中去