Visual Basic - Explicación de código,obtener tablas

A ver, estoy iniciandome con esto de ADO.Net, estoy con Visual Studio .Net... Y no sé me pasaron un código que realmente no acabo de entender, a ver si alguien puede explicarmelo...

Public Function NombresTablas() As String()
Dim nomTablas() As String
Dim dataTable As Data.DataTable
Dim dbNull As System.DBNull
Dim restrictions() As Object = {dbNull, dbNull, dbNull, "TABLE"}
Dim i As Integer
If dbConnection Is Nothing Then
dbConnection = New Data.OleDb.OleDbConnection(CadenaConexion)
End If
If dbConnection.State <> ConnectionState.Open Then
dbConnection.Open()
End If
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
End Function

El foro de .NET lo tienes en otra parte.