autoexec trouble with function

[quest4]

I am trying to run a public function throught autoexec macro. When I attempt to launch the database, I get the debugger high liting the first to lines:

Public Function RunOncez()
Dim dbs As Database
Dim rst As Recordset
Dim strSQL
Set dbs = CurrentDb

Thanks to anyone who can help straighten out this one.

 

[quest4]

Corrected by another thread.