添加到ms访问数据库的logging与vb 2010不保存

我正在做一个简单的数据logging程序，而我几乎没有数据库的经验。 我写了一个小小的VB窗体应用程序来logging数据到MS访问，然后绘制数据，但我有添加logging到数据库的麻烦。

首先，我创build了一个简单的一个表数据库访问。 然后，我将数据库作为数据源添加到项目中，并使用向导为其提供数据集。 现在我的代码如下所示：

Public Class mainForm Dim da As New dsTableAdapters.Sensor_DataTableAdapter 

…

我的数据库由简单称为Sensor_Data的表组成。 我的数据集简单地说就是当我将数据库添加为数据源时创build的Ds。 每当新数据到达时，我都调用updAccess（）子例程。 请忽略开关盒。 这是为了未来的function。

…

 Private Sub updAccess(ByVal data() As String) Select Case data(0) Case "001" Ds.Sensor_Data.Clear() da.Fill(Ds.Sensor_Data) Dim dsNewRow As DataRow = Ds.Sensor_Data.NewSensor_DataRow dsNewRow.Item("Sensor 1") = data(1) dsNewRow.Item("Sensor 2") = data(2) dsNewRow.Item("Sensor 3") = data(3) dsNewRow.Item("Sensor 4") = data(4) dsNewRow.Item("Sensor 5") = data(5) dsNewRow.Item("Sensor 6") = data(6) dsNewRow.Item("Sensor 7") = data(7) dsNewRow.Item("Sensor 8") = data(8) dsNewRow.Item("Sensor 9") = data(9) dsNewRow.Item("Sensor 10") = data(10) Ds.Sensor_Data.AddSensor_DataRow(dsNewRow) da.Update(Ds.Sensor_Data) Case "002" 'TODO: update settings panel End Select End Sub 

…

在构build或运行时没有问题，但在程序运行后我看不到数据库的更改。 任何input，不胜感激。 此外，任何推荐的参考资料也欢迎。