vb写数据到mysql数据库_VB2010写入数据到access 2003数据库

我是用VB2010，想写入X.mdb中一条数据

下面CODE在VB2008中运行正常的，现在VB2010总是出现"microsoft jet 数据库引擎找不到输入表或查询"。

附上2完整的CODE。请教啊。

Dim conn0 As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim tr1, sql As String

filenameaddstr0 = "E:\DB-2PCBA201158.mdb"

tr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filenameaddstr0

conn0.Open(tr1)

sql = "select * from " & "testdata"

rs.CursorLocation = CursorLocationEnum.adUseClient

rs.Open(sql, conn0, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic)

'***************************************************************************

'往表中添加新记录

rs.AddNew()

'Add test time

rs.Fields(0).Value = System.DateTime.Now.ToString

'Add BarCode SN

rs.Fields(1).Value = SNstring

'Nomal Parameter Test Procedure

rs.Fields(2).Value = txtVCC.Text

rs.Fields(3).Value = txtNTC.Text

'USB charger(BatV=2.8v & BatV=4.0v) Test

rs.Fields(4).Value = txtUSBChgVBat2P8.Text

rs.Fields(5).Value = txtUSBChgCBat2P8.Text

rs.Fields(6).Value = txtUSBChgVBat4P0.Text

rs.Fields(7).Value = txtUSBChgCBat4P0.Text

'DC charger(BatV=2.8v & BatV=4.0v) Test

rs.Fields(8).Value = txtDCChgVBat2P8.Text

rs.Fields(9).Value = txtDCChgCBat2P8.Text

rs.Fields(10).Value = txtDCChgVBat4P0.Text

rs.Fields(11).Value = txtDCChgCBat4P0.Text

'Loader 1A (BatV=4.0v) Test Procedure

rs.Fields(12).Value = txtLoad1ACh1V.Text

rs.Fields(13).Value = txtLoad1ACh1C.Text

rs.Fields(14).Value = txtLoad1ACh2V.Text

rs.Fields(15).Value = txtLoad1ACh2C.Text

rs.Update()

rs.Close()

conn0.Close()