VB pobranie nazwy tabeli

Witam panowie chce pobrać w VB .net nazwę tabeli która znajduje się w bazie danych i przekazać ją do labela

    
        Dim conn As New System.Data.OleDb.OleDbConnection()
        Dim sql As String
        Dim da As System.Data.OleDb.OleDbDataAdapter
        Dim ds As New DataSet


        sql = "SHOW TABLE STATUS FROM magayzn"
        conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
    "magazyn.mdb"
        Try
            conn.Open()

            da = New OleDbDataAdapter(sql, conn)
            da.Fill(ds, "Nazwa tabeli")

Problem jest w tym że nie wiem co dalej jak odwołać się do DS aby wyciągnąć nazwę

   sql = "SELECT * FROM  MAGAZYN"
        conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
    "magazyn.mdb"
        Try
            conn.Open()

            da = New OleDbDataAdapter(sql, conn)
            da.Fill(ds)
            DataGridView2.DataSource = ds

DataGridView2 jest dalej pusty mimo ze przekazałem do niego DataSet

i oczywiście google jak zaczarowane milczy na ten temat...

no niestety :(

Wszystko ok tylko chyba coś nie tak z zapytaniem jest ponieważ catch łapie mi na nim błąd