problem with connection.execute

[gerard1979]

the following code drives me crazy;
I have the same code in an other function, only the WHERE clause included an integer instead of a string. It works great, but in the code below, next failure occurs:
0ne or more required parameters are missed....

Is there somebody who can help me out?

Thnx in advance


Private Sub SelToewijzing_Click()
On Error GoTo err_selToewijzing

Dim strBericht As String
Dim Buildstr, strSQL, werknr As String
Dim cnn As Connection
Dim aantal As Integer
Dim varpositie As Variant

'controleer of een waarde is geselecteerd in ToewijzenAan
If IsNull(ToewijzenAan) Or ToewijzenAan.Value = "" Then
BerichtWeergeven "U moet een werknemer selecteren om de offertes aan toe te wijzen."
Exit Sub
End If
'Zorg dat de selectie gemaakt is
If ProjectenLijst.ItemsSelected.Count = 0 Then
BerichtWeergeven "U moet offertes selecteren om toe te wijzen aan " & Me.ToewijzenAan.Column(0)
Exit Sub
End If

'geef een zandloper weer tijdens het toewijzen
DoCmd.Hourglass True

Buildstr = ""
'loop door de lijst van geselecteerde projecten heen
For Each varpositie In ProjectenLijst.ItemsSelected
werknr = ProjectenLijst.ItemData(varpositie)
ProjectenLijst.Selected(varpositie) = False
Buildstr = Buildstr & "werknummer = '" & werknr & "' or "
Next varpositie
Buildstr = Mid(Buildstr, 1, Len(Buildstr) - 4)
Set cnn = CurrentProject.Connection
cnn.BeginTrans
strSQL = "UPDATE OFFERTE SET gevolgd_door = '" & ToewijzenAan.Column(1) & _
"' WHERE " & Buildstr
cnn.Execute strSQL, aantal
If Bevestigen("U staat op het punt om " & aantal & " offertes toe te wijzen aan " & ToewijzenAan.Column(0) & "." & vbNewLine _
& "Wilt u hiermee doorgaan?&quot Then
cnn.CommitTrans
Else
cnn.RollbackTrans
DoCmd.Hourglass False
Exit Sub
End If
'werk het formulier bij
DoCmd.Hourglass False
Offvan = ToewijzenAan
ToewijzenAan = Null
Set cnn = Nothing
ProjectenLijst.Requery
AantalInLijst = ProjectenLijst.ListCount


err_selToewijzing:
If Err.Number = 0 Then
Response = acDataErrContinue
Else
MsgBox Err.Description & Err.Number
cnn.RollbackTrans
DoCmd.Hourglass False
Exit Sub
End If
End Sub