请问如何向同一数据库中的两个不同表中写数据，谢谢

Question

代码如下，错误提示为找不到对象，恳请大牛指教Dim cnn As ADODB.Connection
Dim rs_section  As ADODB.Recordset
Dim rs_link  As ADODB.Recordset
Dim cm As New ADODB.Command
Dim sqlstr1 As String
Dim sqlstr2 As String  Set cnn = New ADODB.Connection
  cnn.Open "DSN=" & str1, str2, str3
  Set rs_section = New ADODB.Recordset
  Set rs_link = New ADODB.Recordset
  
  sqlstr1 = "select * from " & table_section
  rs_section.CursorLocation = adUseClient
  rs_section.Open sqlstr1, cnn, adOpenDynamic, adLockOptimistic
  
  sqlstr2 = "select * from " & table_link
  rs_link.CursorLocation = adUseClient
  rs_link.Open sqlstr2, cnn, adOpenDynamic, adLockOptimistic
  
  rs_section.AddNew
  rs_link.AddNew
  For i = 1 To jn
      
     rs_link.Fields(0) = rs.AbsolutePosition
     rs_link.Fields(1) = jsl(i).gridn & jsl(i).linkN
     rs_link.Fields(2) = jsl(i).time
     rs_link.Fields(3) = jsl(i).traveltime
     rs_link.Fields(4) = jsl(i).n
     rs_link.Fields(5) = jsl(i).lev
     rs_link.AddNew
     
      For j = 1 To jsl(i).n        
        rs_section.Fields(0) = rs.AbsolutePosition
        rs_section.Fields(1) = jsl(i).gridn & jsl(i).linkN        
        rs_section.Fields(2) = jsl(i).jsects(j).time        
        rs_section.Fields(3) = jsl(i).n
        rs_section.Fields(4) = jsl(i).jsects(j).lev
        rs_section.Fields(5) = jsl(i).jsects(j).s
        rs_section.Fields(6) = jsl(i).jsects(j).l
        rs_section.Update
        rs_section.AddNew
      Next j
           
  Next i

Answer 1

感觉不像，如果是没引用ADO，应该提示的是 用户定义类型未定义 jsl是什么类型变量？没看到楼主在什么地方定义

Answer 2

我问非所答地提一个问题：
你为什么不把rs_section.Fields(0)改写成rs_section.Fields("name")??其中name是字段名。这样的好处是直观些，特别是字段多的时候一看name字段名就明确是哪个字段了。这是一个好习惯！！！！！！！

Answer 3

rs_section.Open sqlstr1, cnn, adOpenDynamic, adLockBatchOptimisticrs_link.Open sqlstr2, cnn, adOpenDynamic, adLockBatchOptimistic