Como se carga un Datacombo?

[fero]

Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=localhost"

rst.CursorLocation = adUseClient
rst.Open "select * from categories", cnn, adOpenStatic, adLockBatchOptimistic, adCmdText

With DataCombo1
Set .RowSource = rst
.ListField = "categoryname"
.DataField = "categoryname" 'para que el datacombo muestre el primer item
Set .DataSource = rst
End With

End Sub


No cerrar el recordset ni la conexión porque el datacombo se vacía!!!