[RESOLVED] Multi Step OLE DB Generated errors

[FishGuy]

Hi People
I am getting the error Multi Step OLE DB Generated error on this piece of code.

Dim rsDel As Recordset
Dim cnn As Connection
Dim strSQL As String
Set rsDel = New Recordset
Set cnn = CurrentProject.Connection
strSQL = "Select * from EmployeeStates Where FK_EmpID =" & Me.Parent!EmployeeID & " "
rsDel.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
 
   While Not rsDel.BOF And Not rsDel.EOF
  With rsDel
  .Delete
       .Update
       
    
    End With
       Wend
   rsDel.Close

Does anyone know a workround?