Dim adoConn As ADODB.Connection, adoRecS As ADODB.RecordSet
 
    Set adoConn = New ADODB.Connection
        With adoConn
            .ConnectionString = "Data Source=" & strTempDB
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Open
        End With
    Set adoRecS = New ADODB.RecordSet
        With adoRecS
            .ActiveConnection = adoConn
            .LockType = adLockReadOnly
            .CursorType = adOpenStatic
            .Open "SELECT DISTINCT(day) AS cday FROM " & strTempInT & " WHERE" & _
              "hour = 0"
        End With
 
    msgbox adorecs.recordcount
 
    adoRecS.Close
    adoConn.Close