Invoking a SQL Procedure in the database via VBA code
s = "SELECT * FROM MyTable WHERE AText ='" & Me.MyText & "'"

Forms!SomeForm.RecordSource = s

Set qdf = CurrentDb.CreateQueryDef("NewQuery", s)

s = "UPDATE MyTable Set AText ='" & Me.MyText & "'"

Set db = CurrentDB
db.Execute s, dbFailOnError

'Temporary query
s = "UPDATE MyTable Set AText = MyRext"

Set qdf = db.CreateQueryDef("", s)

qdf.Parameters!MyText = Me.MyText
qdf.ReturnsRecords = False
qdf.Execute dbFailOnError