[Resolvido]Tipo dados Date em Comando SQL

Boas,

Aqui outra vez a pedir a preciosa ajuda.

Pretendo criar um extrato que me devolva os registos dos últimos 60 dias. Criei a variável DatData, do tipo Date e retirei 60. Essa variável é depois utilizada no comando WHERE do SQL, ocorrendo o seguinte erro "Tipo de dados incorreto na expressão de critérios"

Junto abaixo o código

Sub Criar_ExtratoVBA()

Dim ws As Workspace
Dim db As Database
Dim qry1 As QueryDef
Dim qry2 As QueryDef
Dim strConta As String
Dim datData_inicio As Date

DoCmd.DeleteObject acQuery, "ExtratoVBA"
DoCmd.DeleteObject acQuery, "ExtratoVBAcum"

strConta = InputBox("Qual a Conta?")
datData_inicio = Date - 60

Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb

Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = '" & strConta & "' and Data > '" & datData_inicio & "' ORDER BY Documento")
Set qry2 = db.CreateQueryDef("ExtratoVBAcum", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, Formatcurrency(DSum('[Saldo]','ExtratoVBA','Documento <=' & [Documento])) as SaldoAcum FROM ExtratoVBA")

DoCmd.OpenReport "ExtratoVBAcum", acViewReport

End Sub

Datas têm de estar entre cardinais ##

Set qry1 = db.CreateQueryDef("ExtratoVBA", "Select Data, Diario, Documento, Conta, Descricao, Debito, Credito, (Debito-Credito) as Saldo FROM TransactionID WHERE Conta = '" & strConta & "' and Data > #" & datData_inicio & "# ORDER BY Documento")

Ok.

Muito obrigado.

Obrigado pelo retorno o forum agradece.