Problema con Macro en excel

[molavar]

Hola, necesito por favor ayuda tego esta macro y no corre...me muestra el siguiente mensaje "Se ha producido el error '13' en tiempo de ejecucion No coinciden los tipos".......y no se como solucionarlo....(es mi primera macro que va a buscar datos a access por medio de una consulta)

esta es la macro..






Sub CuadrodeMando()

'

' CuadrodeMando Macro

' Macro grabada el 02-09-2008 por Banco Santander Chile

Sheets("Hoja1").Range("A1:G60000").Clear

Dim zona_nueva, Segmento, Grupo, str As String
zona_nueva = ActiveSheet.Cells(1, 1)
Segmento = ActiveSheet.Cells(2, 1)
Grupo = ActiveSheet.Cells(3, 1)
With Hoja4.QueryTables.Add(Connection:=Array(Array("ODB C;DSN=MS Access Database;DBQ=D:\00_Cuadro_de_Mando\01_Escritorio\M odelodeCercania\Modelo_de_Cercania_9(CuadroDeMando ).mdb;Default"), Array("Dir=D:\00_Cuadro_de_Mando\01_Escritorio\Mod elodeCercania;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range("Hoja1!A1"))
.CommandText = Array("TRANSFORM Sum(Base_SeguimientoSucurFinal.Monto) AS SumaDeMonto SELECT Base_SeguimientoSucurFinal.nom_suc" & Chr(13) & "" & Chr(10) & "FROM Base_SeguimientoSucurFinal" & Chr(13) & "" & Chr(10) & "WHERE (Base_SeguimientoSucurFinal.zona_nueva = '" & zona_nueva & "' And Base_SeguimientoSucurFinal.Segmento = '" & Segmento & "' And Base_SeguimientoSucurFinal.Grupo = '" & Grupo & "')" & Chr(13) & "" & Chr(10) & "GROUP BY Base_SeguimientoSucurFinal.nom_suc PIVOT Base_SeguimientoSucurFinal.Subgrupo")
.Name = "Consulta desde MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub


Muchas gracias por la ayuda