Visual Basic - Error de Conexion de Datacombo con Ado

Hola espero puedan ayudarme:

DIM cnn As ADODB.Connection
DIM rst As ADODB.Recordset

Set cnn = New ADODB.Connection
With cnn
.ConnectionTimeout = 30
.Open \"Provider=MSDASQL.1;Persist Security Info=False;Data Source=corpesan\"
.CursorLocation = adUseClient
End With


Set rst = New ADODB.Recordset
With rst
.Open \"TABLA\", cnn, adOpenForwardOnly, adLockOptimistic, ADCMDTABLE
End With

***** Esta es la parte donde cargo el datacombo con los datos de la tabla
***** pero me sale el error del DATAMEMBER Y NO CARGA DATOS Y TERMINA

Set DATACOMBO1.DataSource = rst
DATACOMBO1.DataField = rst.Fields(0)
DATACOMBO1.LISTField = rst.Fields(1)

ESPERO ME PUEDAN AYUDAR YA QUE TENGO QUE ENTREGAR UN TRABAJO ES URGENTE
GRACIAS

Ejemplo de utilización de un DataCombo con ADO

Dim cnnA3Nom as NEW ADODB.Connection
Dim rstEmpeados as NEW ADODB.Recordset

rstEmpleados.CursorLocation = adUseClient
rstEmpleados.Open "SELECT EMP_ID, EMP_NOMBRE FROM Empleados ORDER BY NOM_TRA ASC", cnnA3Nom, adOpenForwardOnly, adLockReadOnly

dcbEmpleados.BoundColumn = "EMP_ID"
dcbEmpleados.ListField = "EMP_NOMBRE"
Set dcbEmpleados.RowSource = rstEmpleados
Set dcbEmpleados.DataSource = rstEmpleados