dataTable = dbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, restrictions)
i = dataTable.Rows.Count - 1
If i > -1 Then
ReDim nomTablas(i)
For i = 0 To dataTable.Rows.Count - 1
nomTablas(i) = dataTable.Rows(i).Item("TABLE_NAME").ToString()
Next
End If
'
Return nomTablas