HELP! Getting Error: Argument not optional (Error 449)

[Bobbak]

Hello All,
I could really use some help with this bit of code I am working on,
every time I come to execute it I get an error that says "Compile
Error: Argument not optional". Now I am using Access 2002 to run this
code that will allow me to populate a field in several tables at once.
Here is an example of the code.

Private Sub cmdOK_Click()

DoCmd.SetWarnin gs False

Dim db As ADODB.Connectio n
Dim rsDaily_CallVol umes, rsBilling, rsTech, rsTransfer, rsSales,
rsOther, As Recordset
Dim sEmployeeID, sQueue, sTextDate As String
Dim dTotalCalls As Double

Log.SetFocus
Log.Text = "Initializi ng Tables" + vbCrLf
sTextDate = Me!TextDay

Set db = CurrentDb.Conne ction
Set rsDaily_CallVol umes =
db.OpenRecordse t("Daily_CallVo lumes")
rsDaily_CallVol umes.MoveFirst

Set rsBilling = db.OpenRecordse t("Dial_BO")
rsBilling.Index = "Employee ID"

Set rsTech = db.OpenRecordse t("Dial_Tech" )
rsTech.Index = "Employee ID"

Set rsTransfer = db.OpenRecordse t("HSE_BO")
rsTransfer.Inde x = "Employee ID"

Set rsSales = db.OpenRecordse t("HSE_Tech")
rsSales.Index = "Employee ID"
Set rsOther = db.OpenRecordse t("Other")
rsOther.Index = "Employee ID"
'Start building the Daily Call Volumes Table

Log.Text = "Building Call Volumes" + vbCrLf

Do While Not rsDaily_CallVol umes.EOF
With rsDaily_CallVol umes
sEmployeeID = rsDaily_CallVol umes("Employee ID")
sQueue = rsDaily_CallVol umes("Queue")
dTotalCalls = rsDaily_CallVol umes("TotalCall s")

Select Case sQueue
Case "Billing_Englis h", "Billing_French "
With rsBilling.Seek = sEmployeeID
If .NoMatch Then
.Add
rsBilling("Empl oyee ID") = sEmployeeID
rsBilling(sText Date) = dTotalCalls
.Update
Else
.Edit
rsBilling(sText Date) = dTotalCalls
.Update
End If
End With

Case "Technical__Eng lish", "Technical_Fren ch"
With rsTech.Seek = sEmployeeID
If .NoMatch Then
.Add
rsTech("Employe e ID") = sEmployeeID
rsTech(sTextDat e) = dTotalCalls
.Update
Else
.Edit
rsTech(sTextDat e) = dTotalCalls
.Update
End If
End With
Case "Transfer_Busin ess_Office_Engl ish",
"Transfer_Busin ess_Office_Fren ch"
With rsTransfer_BO.S eek = sEmployeeID
If .NoMatch Then
.Add
rsTransfer_BO(" Employee ID") =
sEmployeeID
rsTransfer_BO(s TextDate) = dTotalCalls
.Update
Else
.Edit
rsTransfer_BO(s TextDate) = dTotalCalls
.Update
End If
End With

Case "Transfer_Engli sh", "Transfer_Frenc h"
With rsTransfer.Seek = sEmployeeID
If .NoMatch Then
.Add
rsTransfer("Emp loyee ID") =
sEmployeeID
rsTransfer(sTex tDate) = dTotalCalls
.Update
Else
.Edit
rsTransfer(sTex tDate) = dTotalCalls
.Update
End If
End With

Case "Sales_English" , "Sales_Fren ch"
With rsSales.Seek = sEmployeeID
If .NoMatch Then
.Add
rsSales ("Employee ID") = sEmployeeID
rsSales (sTextDate) = dTotalCalls
.Update
Else
.Edit
rsSales (sTextDate) = dTotalCalls
.Update
End If
End With

Case Else
With rsOther.Seek = sEmployeeID
If .NoMatch Then
.Add
rsOther("Employ ee ID") = sEmployeeID
rsOther(sTextDa te) = dTotalCalls
.Update
Else
.Edit
rsOther(sTextDa te) = dTotalCalls
.Update
End If
End With
End Select
With rsDaily_CallVol umes
Move.Next
End With
End With
Loop
Log.Text = "Daily Call Volumes Built" + vbCrLf

DoCmd.SetWarnin gs True

End Sub