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

[解决办法]

VB code

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 = NothingEnd Sub
[解决办法]
探讨

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