我使用ADO联接，为何不能往数据库中添加和修改数据？

Question

我在模块中声明Ado联接，在程序中向数据库中添加数据，为何总是不成功，请各位高手看看为什么？
Public MyVS(0 to 4) as string 
Public MYV(0 to 4) as double
Public MyCon as Adodb.Connection
Public MyRS as Nes Adodb.Recordset
public MyCom as new adodb.command
public strsql as string
set mycon=new adodb.connection
my connectionstring="provider=microsoft.jet.oledb.3.51" &_
"data source=" & app.path & "\data\line.mdb"
mycon.open
strsql="select*from 测试数据"
myrs.cursorlocation=aduseclient
set myrs=mycon.execute(strsql))
或myrs=mycon.openresuleset(strsql)
myrs("第一次结果")=myv(0)
或myrs("第一次结果")=myvs(0))
结果总是提示错误，要么是数据类型不匹配，要么是提供者不支持。不知为什么，请你给看看。

Answer 1

Public MyVS(0 to 4) as string 
Public MYV(0 to 4) as double
Public MyCon as Adodb.Connection
Public MyRS as Nes Adodb.Recordset
public MyCom as new adodb.command
public strsql as string
set mycon=new adodb.connection
my connectionstring="provider=microsoft.jet.oledb.3.51" &_
"data source=" & app.path & "\data\line.mdb"
mycon.open
strsql="select*from 测试数据"myrs.cursorlocation=aduseclient
myrs.Open "select * from 测试数据", mycon, adOpenDynamic, adLockOptimisticmyrs("第一次结果")=myv(0)

Answer 2

strsql="select*from 测试数据"myrs.cursorlocation=aduseclient
myrs.Open strsql, mycon, adOpenDynamic, adLockOptimisticmyrs.fields("第一次结果")=myv(0)myrs.update

Answer 3

access2000改成jet.oledb.4.0
my connectionstring="provider=microsoft.jet.oledb.4.0" &_
"data source=" & app.path & "\data\line.mdb"

Answer 4

你连接Open到那里去？OPEN后面要指定数据源
Set m_Cn = New ADODB.Connection
m_Cn.Open my_connectionstring 

Answer 5

插入语句在那里？没有看到用Connection.execute方法执行插入或修改
strSql="insert into table(field) values('aa') "
mycon.execute(strsql)

Answer 6

m_Cn.Open my_connectionstring 

Answer 7

mycon后加上 mycon, adOpenDynamic, adLockOptimistic

Answer 8

mycon后加上 mycon, adOpenstatic, adLockOptimistic