Da ali sad vidis u kojem je redu greska to sam mislio.
Private Sub Command32_Click()
On Error GoTo Err_Command32_Click
Dim db As Database
Dim rs As Recordset
Dim mySQL As String
   
Set db = CurrentDb()
mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
 
Set rs = db.OpenRecordset(mySQL)
Do While Not rs.EOF
Brisanje = rs.Fields(15)
         rs.Edit
         rs.Brisanje = 1
         rs.Update
rs.MoveNext
Loop  
rs.Close
db.Close
Exit_Command32_Click:
 Exit Sub
 
Err_Command32_Click:
    MsgBox err.Description
    Resume Exit_Command32_Click