How can we store in multiple table and show in messagebox using vb.net

Imports System.Data
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,

 ByVal e As System.EventArgs) Handles Button1.Click
    Dim ds As New DataSet

    Dim dt As New DataTable
    Dim dr As DataRow
    Dim idCoulumn As DataColumn
    Dim nameCoulumn As DataColumn
    Dim i As Integer

    idCoulumn = New DataColumn("ID", Type.GetType("System.Int32"))
    nameCoulumn = New DataColumn("Name", Type.GetType("System.String"))

      dt.Columns.Add(idCoulumn)
      dt.Columns.Add(nameCoulumn)

      dr = dt.NewRow()
      dr("ID") = 1
      dr("Name") = "Name1"
      dt.Rows.Add(dr)

      dr = dt.NewRow()
      dr("ID") = 2
      dr("Name") = "Name2"
      dt.Rows.Add(dr)

      ds.Tables.Add(dt)

      For i = 0 To ds.Tables(0).Rows.Count - 1
            MsgBox(ds.Tables(0).Rows(i).Item(0) 

          & "  Abc  " & ds.Tables(0).Rows(i).Item(1))
        Next i

    End Sub
End Class