Dim olecn As New OleDb.OleDbConnection
    Dim oleDA As New OleDb.OleDbDataAdapter
    Dim olecomm As New OleDb.OleDbCommand
    Dim oledS As New DataSet
    Dim xxtable As New DataTable

    Public Sub bindgridview()
        olecn.ConnectionString = cnn ' 获取联接地址,"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\原F盘\vs2015-access引擎\技术流程系统数据库.accdb"
        olecomm.Connection = olecn '建立联接
        xxtable.Clear()
         = "select * from 登陆信息 where 简称 = '" & UsernameTextBox.Text & "'" '执行查询语句
        oleDA.SelectCommand = olecomm '设配器获取查询命令
        olecn.Open() '打开数据库
        oleDA.Fill(oledS, "登陆信息") '对设配器填充数据
        xxtable = oledS.Tables("登陆信息")
        ' Dim myrow As DataRow = xxtable.NewRow
        olecn.Close()
        DataGridView1.DataSource = xxtable ' oledS.Tables("登陆信息") 'oledS.Tables("登陆信息") '将设配器上取到的数据表内容显示到 显示器上

       DataGridView1.Rows(0).DataBoundItem("密码") = NewPasswordtextbox.Text

        'oleDA.Update(oledS.Tables("登陆信息"))
        oleDA.Update(DataGridView1.DataSource)
        ' xxtable.Clear()

    End Sub
 datagridview数据能改过来，但只要刷新下，又是原来的数据，也就是说物理数据库根本没被修改，哪位大大指导下，到底是怎么回事！谢谢！急等！！

DataGridView1.DataSource = oledS.Tables("登陆信息")
DataGridView1.Rows(0).DataBoundItem("密码") = NewPasswordtextbox.Text
 Dim oleCB As New OleDb.OleDbCommandBuilder(oleDA)
        oleDA.Update(oledS.Tables("登陆信息"))
        oleDs.AcceptChanges()