prova così

codice:
sql= "SELECT * FROM AssignCall, Contacts where AssignCall.AssignCall="& Idreq &" and AssignCall.Data Between '" & Da & "' and '" & A & "' and AssignCall.Service = 'Visit' and Contacts.IdLead=AssignCall.RefLead Order by AssignCall.Data desc, AssignCall.StartTime asc"'"&Oggi&"