dim s as string, mField1 as string, mField2 as string
   mField1 = currentdb.tabledefs("tablename").fields(1).name
   mField1 = currentdb.tabledefs("tablename").fields(2).name

   s = "Select [" & mField1 & "] From [" & rs.name & "] Where [" & mField2 & "]= 'Some Value';"

Sub MakeQuery(pSQL As String, qName As String)

   'written by Crystal
   'strive4peace2004@yahoo.ca


   'USEAGE:
   'MakeQuery strSQL, strQname
   'OR
   'MakeQuery "SELECT Lastname, Firstname FROM Friends;", "MyQueryName"


   Dim mStr As String
    
   On Error GoTo MakeQuery_error
  
   'if query already exists, delete it
   DoCmd.Echo False
   DoCmd.SetWarnings False
   On Error Resume Next
   Err.Number = 0
   mStr = CurrentDb.QueryDefs(qName).Name
   If Err.Number = 0 Then
      DoCmd.Close acQuery, qName
      DoCmd.DeleteObject acQuery, qName
      CurrentDb.QueryDefs.Refresh
   End If
   On Error GoTo MakeQuery_error
   DoCmd.Echo True
   DoCmd.SetWarnings True
   Debug.Print pSQL
   CurrentDb.CreateQueryDef qName, pSQL
   CurrentDb.QueryDefs.Refresh
   DoEvents
  
   Exit Sub
  
MakeQuery_error:
   MsgBox Err.Description, , "ERROR " & Err.Number & "  MakeQuery"
   DoCmd.Echo True
   DoCmd.SetWarnings True
   Stop
   'Press F8 to step through code and find problem
   Resume
End Sub