在 Microsoft Visual Basic 6.0 中填充组合框

我在 Microsoft Visual Basic 6.0 中有一个组合框。我必须将项目添加到组合框中。这些项目存储在 SQL 数据库中的 Column1 表中。我不确定如何让这些项目在运行时显示在组合框中，以便用户可以选择不同的选项。

注：该表只有一列。

这是我到目前为止编写的代码：

'Public Function GetProvincialRidingRst() As ADODB.Recordset
'
'    Dim rst As ADODB.Recordset
'    Dim strSQL As String
'
'    strSQL = "Select * from ProvincialRidings"
'
'    Set rst = New ADODB.Recordset
'    rst.ActiveConnection = cn
'    rst.Open strSQL, , adOpenKeyset, adLockBatchOptimistic
'
'    Set GetProvincialRidingsRst = rst
'
'End Function

我不知道如何从这里进行处理。

一旦有了记录集，只需循环记录并将它们添加到组合框即可。像这样的事情应该这样做：

Combo1.Clear
With myRS
    Do While Not .EOF
        Combo1.AddItem ![myColumn]
        .MoveNext
    Loop
    .Close
End With

显然，你需要更换myColumn与actual表中的列名称。