VB.net 在Gridview中显示Accessl数据

  '在Gridview中显示Accessl数据
    Private Sub Gridviewexcel(ByVal Exclepath As String, ByVal tabelname As String)
        Try
            ' 利用 OleDbConnectionStringBuilder 对象来构建连接字符串。
            Dim connectStringBuilder As New OleDbConnectionStringBuilder()
            connectStringBuilder.DataSource = Accesspath
            connectStringBuilder.Provider = "Microsoft.Jet.OLEDB.4.0"


            Using cn As New OleDbConnection(connectStringBuilder.ConnectionString)
                cn.Open()


                Dim ds As New DataSet()
                Dim selectformname As String
                selectformname = "SELECT * FROM " & Tablename & " ORDER BY 序号 ASC"


                Dim cmdLiming As New OleDbCommand(selectformname, cn)


                'cmdLiming.ExecuteNonQuery()
                Using drLiming As OleDbDataReader = cmdLiming.ExecuteReader()
                    ds.Load(drLiming, LoadOption.OverwriteChanges, New String() {Tablename})


                    ' 将 BindingSource 组件系结至 DataSet 当中的“学生”数据表。
                    Me.BindingSource1.DataSource = ds.Tables(Tablename)


                    ' 将 DataGridView 控件系结至 BindingSource 组件。
                    Me.DataGridView1.DataSource = Me.BindingSource1
            End Using
        End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message, "请注意", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try
    End Sub