如何将vb6.0 combobox的list设置为SQL数据库表中某字段的内容

Question

如何将vb6.0 combobox的list设置为SQL数据库表中某字段的内容。我的数据库名称是fianace，表名是paytype，需要将combobox的值设置成为表paytype中的字段type

Answer 1

Private Sub Form_Load()
    Dim txtsql As String
    Dim Rs As ADODB.Recordset
    Dim msgtext As String
    
    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=finance;UID=sa;PWD="
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open
        
    Rs.Open "select type from fianace", Cnn, adOpenStatic, adLockReadOnly
    If Not Rs.EOF And Not Rs.BOF Then
        Rs.MoveFirst
        Do While Not Rs.EOF
            Combo1.AddItem Rs.Fields(0).Value
            Rs.MoveNext
        Loop
    End If
    Rs.Close
    Set Rs = Nothing
End Sub

Answer 2

   Rs.Open "select type from fianace", Cnn, adOpenStatic, adLockReadOnly
我说的是这行是不是有问题？因为我运行的时候出错了。

Answer 3

实时错误‘91’对变量或with块变量未设置

Answer 4

忘了写了 
dim rs as new adodb.recordset或者加一句 set rs=new adodb.recordset