受不了了！还是请教大虾吧！

Question

winXP+vb 6.0+accessXP
想往数据库里写东西，可是数据库毫无反应，又没提示出错。代码如下：Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
RS.LockType = adLockOptimistic
Conn.Open "provider=Microsoft.jet.oledb.4.0;Data Source=" + App.Path _+ "\db2.mdb"
RS.Open "InputRecord", Conn, 3, 3'往数据库添加记录
   With RS
        .AddNew
        .Fields("输送介质名称") = Trim(Text1(0).Text)
        .Fields("真密度") = TrueDensity
        .Fields("堆积密度") = StackDensity
        .Update
   End With到底问题出在哪儿呢？请指教。

Answer 1

RS.Open "InputRecord", Conn, 1, 2
试试

Answer 2

安装一下最新版的mdac_typ.exe文件,微软网上有的下，最新版本为:2.7Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
RS.CursorLocation=adUseclient'使用客户端游标
Conn.Open "provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\db2.mdb"
RS.Open "InputRecord", Conn, 3, 3'往数据库添加记录
   With RS
        .AddNew
        .Fields("输送介质名称") = Trim(Text1(0).Text)
        .Fields("真密度") = TrueDensity
        .Fields("堆积密度") = StackDensity
        .Update
   End With

Answer 3

安装了最新版的mdac_typ.exe，可是问题依然，再帮想想啊？

Answer 4

加on error goto 语句试试
Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
RS.LockType = adLockOptimistic
on error goto ine
Conn.Open "provider=Microsoft.jet.oledb.4.0;Data Source=" + App.Path _+ "\db2.mdb"
RS.Open "InputRecord", Conn, 3, 3'往数据库添加记录
   With RS
        .AddNew
        .Fields("输送介质名称") = Trim(Text1(0).Text)
        .Fields("真密度") = TrueDensity
        .Fields("堆积密度") = StackDensity
        .Update
   End With
goto inerr
ine:
   msgbox err.desc..
inerr:

Answer 5

Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
RS.LockType = adLockOptimistic
Conn.Open "provider=Microsoft.jet.oledb.4.0;Data Source=" + App.Path _+ "\db2.mdb"
RS.Open "InputRecord", Conn, 3, 3,        adcmdtable'往数据库添加记录
   With RS
        .AddNew
        .Fields("输送介质名称") = Trim(Text1(0).Text)
        .Fields("真密度") = TrueDensity
        .Fields("堆积密度") = StackDensity
        .Update
   End With

Answer 6

哈哈，自己找到症结啦！！
Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
应为public Conn……，因为是写在模块里！
不能再犯这类低级错误了！
还是感谢各位的帮助。结贴！