Double up your double quotes (or use CHR$(34)).
VB Code:
  1. 'doubling up double quotes
  2. strQuery = "SELECT Surname & Chr(44) & Chr(32) & Forenames " & _
  3.           "AS FullName, IIF(IsNull(RegMem.MemID), ""N"", ""Y"") " & _
  4.           "AS Present From Members LEFT JOIN RegMem " & _
  5.           "ON Members.MemID = RegMem.MemID WHERE SDate = #" & _
  6.           Format(#7/4/2005#, "yyyy-mm-dd") & "#;"
  7.                 objRS.Open strQuery, objConn, adOpenStatic, adLockPessimistic