Vb.net Access

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=F:/treeview.mdb;Persist Security Info=False"
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(constr)
        conn.Open()

        Dim sqlstr As String = "SELECT * FROM テーブル1"

        Dim mydataadapter As New OleDb.OleDbDataAdapter
        Dim mydataset As New DataSet

        mydataadapter.SelectCommand = New OleDb.OleDbCommand(sqlstr, conn)
        mydataadapter.Fill(mydataset, "テーブル1")

        DataGridView1.DataSource = mydataset.Tables("テーブル1")

        mydataset.Dispose()
        mydataadapter.Dispose()

        conn.Close()
        conn.Dispose()

    End Sub
End Class