Visual Basic - urgente!!! DATACOMBO

ME ESTOY VOLVIENDO LOCA!!! No puedo llenar un dataCombo.
Este es el codigo:

Dim sql As String

sql = "select cl_cliente, cl_descripcion from clientes order by cl_descripcion"

rs.open sql, cSisPedidos, adOpenStatic, adLockPessimistic
Me.DBClientes.Enabled = True
Set Me.DBClientes.RowSource = rs
Me.DBClientes.BoundColumn = "Cl_Cliente"
Me.DBClientes.ListField = "Cl_Descripcion"
rs.Close
Set rs = Nothing

Esta más malo tu Codigo fuente, ultra malo...lokilla...
bueno agregame a tu msn y hablamos...pero estas muy perdida bye bye

Hola Andrea: No le hagas caso a este, que lo que quiere es ligar contigo.
Lo que tienes que hacer es enlazar el DataCombo a un control (preferiblemente ADO) y después poner este código en el Form_Load()
Set DataCombo1.RowSource = Adodc1
DataCombo1.BoundColumn = "Cl_Ciente"
DataCombo1.ListField = "Cl_Descripcion"
Saludos y suerte!

No se mucho del tema, pero si estas llenando con tu codigo no deberias poner SET RS = NOTHING , ese codigo deberia estar en el evento Unload del formulario, y si quieres que aparesca algun cambio tampoco deberias poner RS.CLOSE

Edwardrcrc....nunca pongas el destructor de rs en un unload...porque sino cuando quieras hacer otra consulta dentro del mismo formulario vas a consumir mas bit...siempre se hace asi

apertura de la base de datos
luego
lectura de la base de datos / grabacion de la misma (cualquiera de las dos)ç
cierre y destruccion de la base de datos...miren....abajo

Function CONECTAR_DATOS()
Set Cnn = CreateObject("ADODB.Connection")
Set Command = CreateObject("adodb.Command")
Cnn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BASE DE DATOS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & "anderson" & ";")
Cnn.CursorLocation = adUseClient
Cnn.Open 'Crear la Conexión
End Function

Function DESCONECTAR_DATOS()
If Cnn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BASE DE DATOS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & "anderson" & ";") Then
Cnn.Close '(Siempre cierren la conexion)
Set Cnn = Nothing 'Destruir la Conexión '(ciempre destruyan la conexion)
End If
End Function

Cualquie cosa agreguenme en el MSN ([email protected]) Omar Daniel (Adios)

El problema era que cerraba el rs.
quite rs.close y rs = nothing.
GRACIAS