I'm not sure if this is exactly what you're looking for but you could try this:
Private Sub AButtonOnYourForm_Click()
Dim dbs As Database, qdf As QueryDef
Dim val1, val2, val3 As String, strNewTitle As String, StrFilter As String, bo As String
' Return reference to current...