添加数据的代码

Dim i, j As Integer
Dim StrTemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Set Rs2 = New ADODB.Recordset
    StrTemp = "Select * From 发料单明细拓展表"
    Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    StrTemp = "Select * From 可乐业务员"
    Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    StrTemp = "Select * From 个人业务统计"
    Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    '如果“发料单明细拓展表”为空，则退出
    If Rs.RecordCount <= 0 Then
        Exit Sub
    End If
    Rs.MoveFirst
    For i = 0 To Rs.RecordCount - 1
        Cunzai = False
        If Rs1.RecordCount < 1 Then
            Cunzai = False
        Else
          ......          

               If Rs("业务员") = Rs1("业务员") And Rs("发料日期") _

                 =  "'" & ......&"'" Then
                    Rs2.AddNew
             ...... 

            & ......&"=                  
             Is Not Null And Between [Forms]![业务量统计]![起始日期] And [Forms]![业务量统计]![截止日期]     

         如何写呢？请您给我解决一哈，谢谢。