Tenta assim

Dim d_inicio As Date
Dim d_fim As Date

d_inicio = "01/01/2017"
d_fim = "02/02/2017"

E a string é a seguinte:
SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >=d_inicio AND DATA<=d_fim AND MOEDA=978 AND TIPO = 1

hronconi, não deu certo

devido meu banco de dados esta com a data da seguinte forma: 2017-02-01 (ano - mês - dia)
não sei se vem ao caso, mais defini uma variável do tipo String para a select:

Dim lSql As String
lSql = "SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >= d_inicio AND DATA <= d_fim AND MOEDA=220 AND TIPO = 1"

problema não consigo concatenar essas variaveis: d_inicio e d_fim
:/

Eu consegui!!!
era seguir com as aspas simples, duplas, & dai vem a variavel &, aspa dupla e simples.

SELECT DATA, MOEDA, LCOMPRA, LVENDA FROM DB05 WHERE DATA >= '" & d_inicio & "' AND DATA <= '" & d_fim & "' AND MOEDA=220 AND TIPO = 1