Consulta a BD firebird desde excel con macro

Tengo un caso con varios problemas.

1) Tengo una bd en firebird que le cree la conexión odbc desde excel para hacer una consulta:

SELECT VENTATICKETS.FOLIO, VENTATICKETS.NOMBRE, VENTATICKETS.CREADO_EN, VENTATICKETS.TOTAL, VENTATICKETS.CLIENTE_ID, VENTATICKETS.PAGO_CON, VENTATICKETS.NOTAS, VENTATICKETS.IMPRIMIR_NOTA, VENTATICKETS.FORMA_PAGO

FROM VENTATICKETS VENTATICKETS
WHERE (VENTATICKETS.CREADO_EN>={ts '2015-08-01 00:00:00.000'}) AND (VENTATICKETS.CREADO_EN<={ts '2015-08-08 11:59:59.000'}) AND (VENTATICKETS.ESTA_CANCELADO='f') AND (VENTATICKETS.FORMA_PAGO='e')
Order by ventatickets. Folio

Esta consulta me trae la siguiente tabla:

Aquí viene el primer problema, en mi consulta tengo un campo "VENTATICKETS.NOTAS" que no me esta mostrando en la consulta en excel..

Investigando me di cuenta que es un campo BLOB (con texto) en la BD.

¿Cómo hago para que se visualice si ahí solo se escribió texto?

¿Cómo puedo hacer la consulta con las fechas parametrizadas (que me las pida o las tome de una celda o algo así)?

¿Se puede dentro de una macro?

Nota:

Vi esta macro en internet pero al tratar de implementarle el select me genera este error:

este es el macro que puse

Sub ReporteVentasEfectivo()
Sheets(2).Select
Cells.Select
On Error Resume Next
Selection.ListObject.QueryTable.Delete
On Error GoTo 0
Selection.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array("ODBC;DSN=vertigos"), Destination:=Range("$A$1")).QueryTable
.CommandText = Array("SELECT VENTATICKETS.FOLIO, VENTATICKETS.NOMBRE, VENTATICKETS.CREADO_EN, VENTATICKETS.TOTAL, VENTATICKETS.CLIENTE_ID, VENTATICKETS.PAGO_CON, VENTATICKETS.NOTAS, VENTATICKETS.IMPRIMIR_NOTA, VENTATICKETS.FORMA_PAGO FROM VENTATICKETS VENTATICKETS WHERE (VENTATICKETS.CREADO_EN>={ts '2015-08-01 00:00:00.000'}) AND (VENTATICKETS.CREADO_EN<={ts '2015-08-08 11:59:59.000'}) AND (VENTATICKETS.ESTA_CANCELADO='f') AND (VENTATICKETS.FORMA_PAGO='e') ORDER BY VENTATICKETS.FOLIO")
.Refresh BackgroundQuery:=False
End With
End Sub