Tema: Error en sentencia SQL

[argy]

Hola! como ya comente en otro post, estoy trabajando con visual basic para aplicaciones. Qieo consultar una base de datos de excel, pero quiero que esa consulta sea dinamica, que cambie cada vez que los parametros cambien. Esta sentencia de aqui abajo la he creado con el grabador de macros y despues le añadido un par de cambios, pero me da error en sentencia SQL cuando añado WHERE fusibles.In=" & miVariable &"

Sub recuperarDatos()
'recupera datos de la base de datos

miVariable = 4

direccion = Array(Array("ODBC;DSN=Protecciones;DBQ=F:\protecciones.mdb;DriverId=25;FIL=MS Access;MaxBuf"), Array("ferSize=2048;PageTimeout=5;"))

mirar = Array("fusibles.Nombre, fusibles.Clase, fusibles.Tamaño, fusibles.In, fusibles.tension" & Chr(13) & "" & Chr(10) & "FROM  fusibles fusibles" & Chr(13) & "" & Chr(10) & "WHERE (fusibles.In=" & miVariable & ")")

    With ActiveSheet.QueryTables.Add(Connection:=direccion, Destination:=ActiveSheet.Range("a1"))
            .CommandText = mirar
            .Name = izena
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = True
            .SaveData = True
            .AdjustColumnWidth = False
            .PreserveColumnInfo = True
            .Refresh BackgroundQuery:=True
        End With
End Sub

No se si alguien sabe como va la cosa o como lo podria hacer se lo agradeceria. Gracias

[argy]

Hola! Todabia no he solucionado ese problema con la sentencia SQL, pero ya lo he hecho de otra manera.
De todas formas he encontrado esta pagina web que le puede venir bien a alguien que en un futuro trabaje con Visual basic para aplicaciones y gestion de BBDD. http://www.programarvba.com/

[destroyer]

Gracias por el enlace amigo.. Estamos en malas fechas con las vacaciones.. 

Un saludo