design a window application that is having multiple tables in single dataset

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\poonam\eg.mdb"

Dim mycon As New OleDbConnection(con)

Dim con1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\db1.mdb"

Dim mycon1 As New OleDbConnection(con1)

Dim q1 As String = "select * from t1"

Dim da As New OleDbDataAdapter(q1, mycon)

Dim q2 As String = " select * from t1"

Dim da1 As New OleDbDataAdapter(q2, mycon1)

Dim ds As New DataSet

Dim ds1 As New DataSet

da.Fill(ds, "t1")

da1.Fill(ds1, "t1")

DataGrid1.DataSource = ds.Tables(0).DefaultView

DataGrid2.DataSource = ds1.Tables(0).DefaultView

End Sub

End Class