كيف اضيف combo

اتمنى أن تستفيد من هذا الكود

'Connecting to an Access Database using ADO
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    ' Open the database connection and recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:Program FilesMicrosoft Visual StudioVB98Nwind.mdb;" & _
        "Persist Security Info=False"
    rs.Open "Select * from Customers", cnn, adOpenStatic, adLockOptimistic
    ' Place values in the comboBox control
    Do While rs.EOF = False
        Combo1.AddItem rs!CompanyName
        rs.MoveNext
    Loop
End Sub