'code to get recordset with one column of IDs
  

    'go through all of them
    While Not rstCandidates.EOF
        arPreselectedCandidates = rstCandidates.GetRows(50) 
	'this will return quoted ids separated by comma ex: 'id01','id02',etc

        strPreselectedCandidates = GetPreselectedCandidatesString(arPreselectedCandidates)

        Set rstCanTemp = New ADODB.Recordset

        strSQL = "SELECT * FROM table1 " & _
        "WHERE Contact_ID IN (" & strPreselectedCandidates & "); "
       
        strSQL = strSQL & "SELECT * FROM table2 " & _
        "WHERE Contact_ID IN (" & strPreselectedCandidates & "); "
        
        strSQL = strSQL & "SELECT * FROM table3 " & _
        "WHERE Contact_ID IN (" & strPreselectedCandidates & "); "

        
        With rstCanTemp
            Set .ActiveConnection = con
            .Source = strSQL
            .CursorLocation = adUseClient
            .CursorType = adOpenForwardOnly
            .LockType = adLockReadOnly
            .Open
        End With
  
        'i found that running it once is faster then 3 separate queries.
      
        If Not rstCanTemp.EOF Then arr1 = rstCanTemp.GetRows
        Set rstCanTemp = rstCanTemp.NextRecordset

        If Not rstCanTemp.EOF Then arr2 = rstCanTemp.GetRows
        Set rstCanTemp = rstCanTemp.NextRecordset

        If Not rstCanTemp.EOF Then arr3 = rstCanTemp.GetRows
        rstCanTemp.Close


	.
	.
	.

    loop