[Emiliano1975]

Private Sub Combo1_Click()

If rs.State <> adStateClosed Then
rs.Close

End If

rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "select * from " & Combo1.Text
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub

Private Sub Form_Load()
Dim cadena_conexion As String

Set cn = New ADODB.Connection
cadena_conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\autos.mdb;Persist Security Info=False"
cn.Open cadena_conexion

Set rs = New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables)

If rs.BOF And rs.EOF Then
MsgBox "No existen tablas para mostrar.."

Else
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem (rs!TABLE_NAME)
rs.MoveNext
Wend

End If

End Sub


'en el modulo le puse...

Option Explicit

Dim cn As ADODB.Connection
Public rs As ADODB.Recordset

'Bueno, me falto filtrar las tablas de sistema que levanta el openschema...
'en todo caso avisame y te paso el codigo (es cortito)

Saludos, y espero que esto evite un suicidio...jajja


Emiliano