Hola a todos. Deseo hacer esta conexion pero me arroja un error, debe estar mal estructurado.. alguien sabe cual es mi error? Se los agradeceria. Quiero dejar la tabla como variable... ;_;

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
(lo anterior en un modulo)

(y lo de acontinuacion en el form)

Private Sub Form_Load()
Dim table_name As String

table_name = Combo1.List(Combo1.ListIndex)

db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"

--------------------

Ahora, de esta manera me funciona sin problemas:

Private Sub Form_Load()
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockPessimistic

Alguien sabe? de antemano muchas gracias.

Hmmmm... asdasd todo esto es lo q tengo en el form
--me tira un error-- 3709 : "no se puede utilizar la conexion para realizar esta operacion. Esta cerrada o no es validad en este contexto."



Private Sub Form_Load()
Dim dbname As String
Dim qdef As QueryDef
Dim db1 As Database
Dim td As TableDef
Dim table_name As Variant

table_name = Combo1.List(Combo1.ListIndex)
'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ]
   db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path & "\Cortes.mdb"
     rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"
     
     
'Call ViewRecord
'Call comboRecord


'Combo1 lista tablas---------------------------------------------
    ' Abrir base de datos.
   
    dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "Cortes.mdb"
    Set db1 = OpenDatabase(dbname)
       
    ' Listar las tablas.
    For Each td In db1.TableDefs
        ' no mostrar las tablas del sistema
        If Left$(td.Name, 4) <> "MSys" Then _
            Combo1.AddItem td.Name
    Next td

    ' control Data database.
    Data1.DatabaseName = dbname
   
   
    ' Abrir tabla seleccionada.
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\CodigosCR.mdb;" & _
                              "Persist Security Info=False"
   
    Adodc2.RecordSource = "Codigoscorte"
    ' Refresh es necesario para que se cargue la tabla
    Adodc2.Refresh