Hola carlunchos,
copia y pega,
ajusta los nombres de los controles y formulario,
ten a punto las librerías de ADO(activex data objects library y activex data objects recordset)
y ya esta.
El código está desnudo, pues falta tratamiento de errores y muchas más cosas.
IMPORTANTE, te saldrán en el combo tablas del sistema que darán error si las seleccionas. O no las cargas en el combo con las opciones de ADO(busca la ayuda, se llama "ado200.chm"), o manejas el error y sacas un mensaje(esto es más chapucero).
Está probado pero si te da error escribe...
-------------------------------------------------------------------------
Option Explicit
Dim Gado_conn As ADODB.Connection
Dim Gado_rec As ADODB.Recordset
Dim Gado_rec_tmp As ADODB.Recordset
Private Sub Combo1_Click()
'Me aseguro que está cerrado para cerrarlo
If Gado_rec.State <> adStateClosed Then
Gado_rec.Close
End If
'Defino la consulta
Gado_rec.Source = "SELECT * FROM " & Combo1.Text
'Abro el recordset
Gado_rec.Open
Set dtgUsuarios.DataSource = Gado_rec
'No debo cerrar el recordset mientras quiera los datos en el datagrid
End Sub
Private Sub Form_Load()
Dim S_cad As String
'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 & "\siene.mdb;Persist Security Info=False"
'Creo un objeto Recordset
Set Gado_rec = New ADODB.Recordset
Gado_rec.ActiveConnection = Gado_conn
Gado_rec.CursorLocation = adUseClient
Gado_rec.CursorType = adOpenKeyset
'Creo un objeto Recordset
Set Gado_rec_tmp = New ADODB.Recordset
Gado_rec_tmp.ActiveConnection = Gado_conn
Gado_rec_tmp.CursorLocation = adUseClient
Gado_rec_tmp.CursorType = adOpenKeyset
'Abro el recorset
Set Gado_rec_tmp = Gado_conn.OpenSchema(adSchemaTables)
While Not Gado_rec_tmp.EOF
Combo1.AddItem Gado_rec_tmp!TABLE_NAME
Gado_rec_tmp.MoveNext
Wend
Gado_rec_tmp.Close
End Sub
-------------------------------------------------------------------------
Un saludo
Pablo