Function run_sql(ByVal mySQL As String) As Long
Dim qd As QueryDef, dum As Long
On Error GoTo UUPS
Set qd = CurrentDb().CreateQueryDef("")
qd.sQl = mySQL
qd.Execute
run_sql = qd.RecordsAffected
qd.Close
Exit Function
UUPS:
run_sql = -1
msgbox Format(Now(), "dd-mmm-yyyy hh-nn-ss") & " " & Err.Number & " " & _
  Err.Description &  vbCrLf & mySQL
End Function