Imports System.Data.OleDb
Public Class Form1

    Dim ds As New DataSet
    Dim dt As New DataTable("Table1,Table2")
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source =" & "Database.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String = "SELECT * FROM Table1"
    Dim SQLstr2 As String = "SELECT * FROM Table2"
    Dim m As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Static m As Integer = 0
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        Dim DataAdapter2 As New OleDbDataAdapter(SQLstr2, Conn)
        DataAdapter1.Fill(DataSet1, "Table1")
        DataAdapter2.Fill(DataSet1, "Table2")
        Conn.Close()
        
        'ChangePosition()
        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "Table1"
        DataGridView2.DataSource = DataSet1
        DataGridView2.DataMember = "Table2"
    End Sub
End Class