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

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

------解决方案--------------------