ขอถามเกี่ยวกับ Combo box ใน vb6 ครับ จะมีวิธีการอย่างไรที่เวลาดึงข้อมูลจากฐานข้อมูลแล้วเอามาใส่ใน Combo box

Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub