select distinct not working [moved]

[nyah_RMC]

i tried to run this statement but i got some errors...can someone show me how to do this correctly? i want to filter my employee records showing only the records with equivalent transactions on a given date...i mean i want to suppress my records displaying only those records with transactions that corresponds to a certain date... ??

Dim strGroupSQL As String
Dim strDetailsSQL As String
Dim strShapeSQL As String
Dim cus As String
Dim d As Date
 
   d = Date
   strGroupSQL = "SELECT ID, Name FROM tblContact WHERE ID IN (SELECT DISTINCT tblTransaction.ID FROM tblTransaction)"
   
   strDetailsSQL = "SELECT tblContact.ID, tblContact.Name, tblTransaction.Total, tblTransaction.TransID, tblTransaction.Paid, tblTransaction.Total, "
   strDetailsSQL = strDetailsSQL & "tblTransaction.Total - tblTransaction.Paid AS Balance ,tblTransaction.DueDate, tblTransaction.Settled "
   strDetailsSQL = strDetailsSQL & "FROM tblContact INNER JOIN tblTransaction ON tblContact.ID = tblTransaction.ID WHERE tblTransaction.Settled LIKE 0 "
   
   strShapeSQL = "SHAPE {" & strGroupSQL & "} "
   strShapeSQL = strShapeSQL & "APPEND ({" & strDetailsSQL & "} AS GrpDetails "
   strShapeSQL = strShapeSQL & "RELATE ID to ID) "