Set AbreBase = OpenDatabase(PathDB, False, False, "; pwd=" & PassDB)
AbreBase.TableDefs.Refresh
For Each AbreTablas In AbreBase.TableDefs
If (AbreTablas.Attributes And dbSystemObject) = 0 Then
Tabla1.Rows = (Tabla1.Rows + 1)
Tabla1.Row = (Tabla1.Rows - 1)
Tabla1.TextMatrix(Tabla1.Row, 0) = AbreTablas.Name
End If
Next
Abrebase.Close
Set AbreBase = Nothing