求助：求一次写入多条记录代码

这个可以用一个子窗体来添加，这是我的一段代码，供你参考

 Dim i, j As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
StrTemp = "Select * From 销售单"
    rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    StrTemp = "Select * From sell明细"
    Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
           
           
    rs.MoveFirst
     For i = 0 To rs.RecordCount - 1
         
            
             '保存出库单到sell明细表中
            Rs1.AddNew
           
            Rs1("发票单号") = Me![M5]
            Rs1("项目编码") = rs("项目编码")
            Rs1("收入项目名称") = rs("收入项目名称")
            Rs1("计收单位") = rs("计收单位")
            Rs1("收缴标准") = rs("收缴标准")
            Rs1("数量") = rs("数量")
         
          
            Rs1.Update
             
           
           rs.MoveNext
           Next i
 
           
      
        '刷新发票记录
     
        Me!Text1.Requery