Try objconn.Open() Dim dt As New DataTable Dim strsql = "select * from Info" objadap.SelectCommand = New OleDb.OleDbCommand(strsql, objconn) objadap.Fill(objDSet, "Info") objDSet.Clear() Dim cmdbuilder As New OleDb.OleDbCommandBuilder(objadap) objadap.UpdateCommand = cmdbuilder.GetUpdateCommand() ‘此處修改資料 objadap.Update(objDSet.Tables("Info")) objconn.Close() MsgBox("儲存成功", , "提示") "****** Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number) End Try