大虾们帮忙看看．．．

Question

帮忙分析下
　　我要把xinxi 表里的＂dairiqi＂里的数据赋给guoqi表里的＂riqidai＂但是代码运行时提示＂在对应所需的名称或序数的集合中，未找到项目＂　　　找不到要导入的那张表的字段，vb　不会同时看２个表吗？
Dim rs As New ADODB.Recordset
Dim db As New ADODB.Connection
Dim mlink
Dim msql
Dim mmlink = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=yinhang.mdbersist Security Info=False"
db.Open mlink
msql = "select * from xinxi"
msql = "select * from guoqi"rs.Open msql, db, adOpenDynamic, adLockOptimistic
If rs.EOF = False Then
Do While rs.EOF = False
m = DateDiff("d", rs.Fields("huanriqi"), Date)If m > 1 Then
rs.AddNew
rs.Fields("riqidai") = rs.Fields("dairiqi")End If
Loop
MsgBox "OK"
rs.Close
End If

Answer 1

帮忙分析下 
　　我要把xinxi   表里的＂dairiqi＂里的数据赋给guoqi表里的＂riqidai＂但是代码运行时提示＂在对应所需的名称或序数的集合中，未找到项目＂　　　找不到要导入的那张表的字段，vb　不会同时看２个表吗？ 
Dim   rs   As   New   ADODB.Recordset 
Dim   db   As   New   ADODB.Connection 
Dim   mlink 
Dim   msql 
Dim   m mlink   =   "rovider=Microsoft.Jet.OLEDB.4.0;Data   Source=yinhang.mdbersist   Security   Info=False" 
db.Open   mlink 
msql   =   "select   *   from   xinxi" 
msql   =   "select   *   from   guoqi" rs.Open   msql,   db,   adOpenDynamic,   adLockOptimistic 
If   rs.EOF   =   False   Then 
Do   While   rs.EOF   =   False 
m   =   DateDiff("d",   rs.Fields("huanriqi"),   Date) If   m   >   1   Then 
rs.AddNew 
rs.Fields("riqidai")   =   rs.Fields("dairiqi") End   If 
Loop 
MsgBox   "OK" 
rs.Close 
End   If

Answer 2

Dim       db       As       New       ADODB.Connection   
mlink       =       "rovider=Microsoft.Jet.OLEDB.4.0;Data       Source=yinhang.mdbersist       Security       Info=False"   
db.Open       mlink   
db.execute "insert guoqi(riqidai) select dairiqi from xinxi where  datediff('d',huanriqi,date())>1"
MsgBox       "OK"   
End       If'另:再次抗议 空格问题

Answer 3

Source=yinhang.mdbersist   
应该是这样吧
Source=yinhang.mdb; persist