Public Sub t()
Dim s As String
s = "SELECT 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadsaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';"
x1 s
x2 s
End Sub
Public Sub x1(ByVal s As String)
Dim q As DAO.QueryDef
Set q = CurrentDb.CreateQueryDef
q.Name = "foo"
q.Sql = s
CurrentDb.QueryDefs.Append q
End Sub