DoCmd.RunSQL

Dim SQL_UpdateCategory2 As String

SQL_UpdateCategory2 = "UPDATE tCateg2 SET lastdrwno =" & Me.drwno & " WHERE Cat2 = '" & Me.cat2 & "'"

DoCmd.RunSQL SQL_UpdateCategory2