VB6 ile Combobox Doldurmak

Nerden çıktı vb6 diyenleri duyar gibiyim ama ben yine de yazayım dedim.Olur ya eski bir projenin dökezleyen bir yanını düzeltmeye çalışırken işinize yaraması son derece muhtemel.

Dim rsREC As New Adodb.Recordset
Dim sSQL As Strings
SQL = "SELECT * FROM Branch"
rsREC.Open sSQL, dePerformer.conPerformer, adOpenStatic, adLockReadOnly
Set CmbFilter.DataSource = rsREC
Do While Not rsREC.EOF
CmbFilter.AddItem
rsREC!branchrsREC.MoveNext
Loop
rsREC.Close
Set rsREC = Nothing