vb.net 2008 打开access数据库并绑定到DataGridView1

没人回答，昨晚自己整明白了，和大家分享一下！
的资料真是太少，大家应该多多分享！

Dim dbaname As String = "\data\py.mdb" '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from pylj"
        conn.Open()
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)
        Dim ds As New Data.DataSet()
        da.Fill(ds, "pylj")
        DataGridView1.DataSource = ds.Tables(0)