Llenar un listbox en Visual Basic.

[pabli]

carlunchos,

siento decirte que ese error es un gran conocido mio, pero a pesar de conocerlo, todavía no se porque sale.
Cambiando el código acabo arreglándolo, pero siempre sin saber como lo he hecho. El código que te he pasado a mi me funciona.
Mira a ver si alguna de estas soluciones te funciona:

1-crea otro recordset nuevo y se lo pasas al datagrid.
2-si no funciona, pasa las declaraciones y las configuraciones de conexión y recordsets a un módulo normal, como esto:

------------------------------------------------
Option Explicit

'********************
'Variables de la BBDD
Global Gado_conn As ADODB.Connection 'Abre una conexión
Global Gado_rec As ADODB.Recordset 'Para mandatos Select
Global Gado_rec_tmp As ADODB.Recordset 'Para mandatos Select

Public Function FUN_Abrir_BBDD() As Integer

Dim S_cad As String

On Error GoTo CONTROL_ERRORES

'Creo un objeto Connection para abrir la conexión mediante ADO
Set Gado_conn = New ADODB.Connection
Gado_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TUbbdd.mdb;Persist Security Info=False"

'Creo un objeto Recordset para consultar
Set Gado_rec = New ADODB.Recordset
Gado_rec.ActiveConnection = Gado_conn
Gado_rec.CursorLocation = adUseClient
Gado_rec.CursorType = adOpenKeyset
Gado_rec.LockType = adLockOptimistic
'Creo un objeto Recordset para consultar
Set Gado_rec_tmp = New ADODB.Recordset
Gado_rec_tmp.ActiveConnection = Gado_conn
Gado_rec_tmp.CursorLocation = adUseClient
Gado_rec_tmp.CursorType = adOpenKeyset
Gado_rec_tmp.LockType = adLockOptimistic

FUN_Abrir_BBDD = 0

Exit Function
CONTROL_ERRORES:
FUN_Abrir_BBDD = 1
MsgBox "No es posible establecer la conexión con la BBDD", vbCritical
End
End Function
----------------------------------------------

y por último llamas a la función desde el load del form principal.


Saludos