VB2008连接数据库,具体怎么连接和打开Access,对数据库进行操作?
Private Sub xiugaifrm_Load
Dim connstr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\denglu1.mdb;Jet OLEDB:Database Password=123456")
        Dim conn As New OleDbConnection(connstr)
        conn.Open()
        ' 打开数据库连接()
        If ConnectionState.Open Then '判断数据库目前的状态是否已打开
            'MsgBox("打开")
            Dim sql1 As String = "select * from biao1"
            Dim cmd As New OleDbCommand(sql1, conn)
            Dim dr1 As OleDbDataReader = cmd.ExecuteReader
            While dr1.Read = True
                '  dr1.NextResult()
                TextBox7.Text = dr1.GetString(0)
                TextBox1.Text = dr1.GetString(1) '读取A表中第二个字段的内容到文本框。
                TextBox2.Text = dr1.GetString(2) '读取A表中第二个字段的内容到文本框。
                TextBox3.Text = dr1.GetString(3) '读取A表中第二个字段的内容到文本框。
                TextBox4.Text = dr1.GetString(4)
                TextBox5.Text = dr1.GetString(5) '读取A表中第二个字段的内容到文本框。
                TextBox6.Text = dr1.GetString(6)
                dr1.Close()                      '(关闭数据读取器())
                conn.Close()                    '(关闭数据库连接())
                Exit Sub
            End While
        End If
    我读取了记录写入文本框,vb中修改了数据 ado.net怎么保存到access数据库?