Como se carga un Datacombo?

[La__X]

Hola Foro,
Quiero enlazar un datacombo con el resultado de una consulta a mi bd esto tengo hecho:

Código:

Private Sub Command1_Click()
    Dim tField As ADODB.Field

    Set cnn = Nothing
    Set rst = Nothing

    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.Open "select * from categories", cnn, adOpenStatic, adLockBatchOptimistic, adCmdText

   Set DataCombo1.RowSource= rst
   DataCombo1.ListField = "categoryname"

    rst.Close
    cnn.Close

End Sub

Pero no me muestra nada, y cuando le agrego inspeccion al datacombo, siempre mantiene al rowsource como nothing... que es lo que falta hacer??? porque hago lo mismo para una bd en access y si funciona pero para la bd que esta en sql server 2000 no lo hace... AyudiTaa

[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!!!

[La__X]

Graciasss...
funciono perfecto