D Duane Hookom Sep 23, 2003 #2 Dim strSQL as String strSQL = Currentdb.QueryDefs("qselYourQuery").SQL