Macro de excel a access

Hola, me puedes ayudar con lo sigte:
tengo una macro en excel que me importa los resultados de consultas hechas en access, el problema es que me retorna todas los datos menos de una consulta. He probado modificando el nombre, pero no funciona. Esta es la sql de esa consulta
SELECT DISTINCTROW [01 sw clp por rango].fecha, [01 sw clp por rango].Banca, [01 sw clp por rango].mda, [01 sw clp por rango].pdto, [01 sw clp por rango].rango, Sum([01 sw clp por rango].flujo) AS [Suma De flujo], Sum([01 sw clp por rango].dv01) AS [Suma De dv01]
FROM [01 sw clp por rango]
GROUP BY [01 sw clp por rango].fecha, [01 sw clp por rango].Banca, [01 sw clp por rango].mda, [01 sw clp por rango].pdto, [01 sw clp por rango].rango;
y esta es la macro de excel
macro_access()
'ejecuta consulta acumulada
x = 3
Ruta = Sheets("rutas").Cells(x, 2).Value
archivo = Sheets("rutas").Cells(x, 3).Value
tabla2 = Sheets("rutas").Cells(x, 4).Value
'sfecha_ini = Sheets("rutas").Cells(x, 7).Value
'sfecha = Sheets("rutas").Cells(x, 8).Value
hoja_dest = Sheets("rutas").Cells(x, 9).Value
col_dest = Sheets("rutas").Cells(x, 10).Value
'fila_dest = Sheets("rutas").Cells(x, 11).Value
'dimensiones
Dim datConnection2 As ADODB.Connection
Dim recSet2 As ADODB.Recordset
Dim strDB2, strSQL2 As String
Dim strTabla1 As String
Dim strTabla2 As String
Dim lngTablas2 As Long
Dim i2 As Long
'ubicación
strDB2 = Ruta & archivo
'nombre de la tabla del archivo Access
' strTabla1 = "[" & "dv01 tabla" & "]"
strTabla2 = "[" & tabla2 & "]"
'strTabla3 = "02 spot_trema acumula"
Set datConnection2 = New ADODB.Connection
Set recSet2 = New ADODB.Recordset
datConnection2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & strDB2 & ";"
'strSQL2 = strTabla3
' strSQL1 = "update " & strTabla1
strSQL2 = "SELECT * FROM " & strTabla2
'" & sfecha_ini & " or fecha=" & sfecha
recSet2.Open strSQL2, datConnection2
'copiar datos a la hoja
Sheets(hoja_dest).Select
ActiveSheet.Cells(2, col_dest).CopyFromRecordset recSet2
'copiar rótulos
lngCampos = recSet2.Fields.Count
For i2 = 0 To lngCampos - 1
ActiveSheet.Cells(1, i2 + 1).Value = recSet2.Fields(i2).Name
Next
'desconectar
recSet2.Close: Set recSet2 = Nothing
datConnection2.Close: Set datConnection2 = Nothing
End Sub
De antemano gracias por tu ayuda.