vb 2003 - Mostrar las tables de un MDB

[Mirador]

Buenas, estoy intentando mostrar las tablas que contiene un MDB, para ello he hecho este sub que saca un msgbox por cada tabla. La cosa es que estoy completamente atrancado y no se como continuar.

Me detecta el número de tablas que contiene, pero no se como sacar el nombre de ellas. Espero puedan guiarme de alguna forma:

Código:

Private Sub sCargarTablas(ByVal strDireccionMDB As String)
        Dim dbConn As OleDb.OleDbConnection
        Dim dbCmd As OleDb.OleDbCommand
        Dim datTable As DataTable
        Dim tab As New DataTable
        Dim i As Integer
        Try
            dbConn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDireccionMDB & ";")

            dbConn.Open()
            datTable = dbConn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If datTable.Rows.Count > 0 Then

                For Each tab In datTable.DataSet.Tables
                    MsgBox(tab.TableName)
                Next

                Me.lstTablas.Enabled = True

            Else
                MsgBox("La mdb seleccionada no contiene ninguna tabla", MsgBoxStyle.OKOnly, "Atención")
            End If

        Catch ex As Exception
            Call MsgBox("Error: " & ex.Message & vbNewLine & "Traza: " & ex.StackTrace)
        End Try
    End Sub

Saludos!

[Mirador]

Solucionado:

Código:

Private Sub sCargarTablas(ByVal strDireccionMDB As String)
        Dim dbConn As OleDb.OleDbConnection
        Dim dbCmd As OleDb.OleDbCommand
        Dim datTable As DataTable
        Dim datRow As DataRow
        Dim i As Integer
        Try
            dbConn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDireccionMDB & ";")

            dbConn.Open()
            datTable = dbConn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If datTable.Rows.Count > 0 Then
                For Each datRow In datTable.Rows
                    MsgBox(datRow(2))
                Next

                Me.lstTablas.Enabled = True

            Else
                MsgBox("La mdb seleccionada no contiene ninguna tabla", MsgBoxStyle.OKOnly, "Atención")
            End If

        Catch ex As Exception
            Call MsgBox("Error: " & ex.Message & vbNewLine & "Traza: " & ex.StackTrace)
        End Try
    End Sub

Saludos!