USer-Defined Function in query

[shragel]

Is there a way to creat user defined function for a access database when calling the datbase from vb


For example

Sub OpenRecordSet()
 
Set rst = dbs.OpenRecordSet("Select Field1, MyFunction(Field1) From Table1")
 
End Sub
 
Function MyFunction(AnyThing)
MyFunction = Anything + 1
End Function