How to get data from sql into a combo box in vb6?

[Niki_S]

I want to get data from sql server into my combo box. These are the few steps that I did and I want to know how to insert data to my combo box?

Private Sub Form_Load()
   
    Call fxSETConnection(ServerType2)
   
    Dim rsreportSw As String
    Dim LnOD As ADODB.Recordset

  
    'rsreportSw = "SELECT cFty FROM dbo.FRI_MASTER_LineLoading group by cFty order by cFty"
    
 
        Set LnOD = New ADODB.Recordset
        LnOD.CursorLocation = adUseClient
        LnOD.Open "SELECT cFty FROM dbo.FRI_MASTER_LineLoading group by cFty order by cFty", cn, adOpenStatic, adLockReadOnly
        
    

End Sub

Thank you

 

[strongm]

One method:

With LnOD 
    Do While Not .EOF
        Combo1.AddItem ![cFty]
        .MoveNext
    Loop
End With

 

[Niki_S]

Thank you. Now it's working

 

[Andrzejek]

A Star for strongm? Would be nice to show appreciation for his help...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson