[Resolvido]exportar txt

Bom dia Todos
Um Feliz Natal e Um 2021 Prospero

Estou fazendo um adaptação ao meu projeto de exportar pra txt pra um banco de dados gdb
só que estou fazer isso entre data e não esta dando certo
como resolver isso?

o erro deve esta nesta linha
strSQL = strSQL & "NPARCELAS, NPARCELAS, DATA FROM SYSPDV WHERE (((SYSPDV.DATA) Between [Forms]![exportar]![DataInicio] And [Forms]![exportar]![DataTermino]));"

quando mando executar diz

erro em tempo de execução 3061
Parâmetros insuficientes. Eram esperados 2

deve ser as duas datas que ele não encontra ... pois não consegui resolver

agradeço quem puder resolver




Private Sub Comando0_Click()
ficheiro = Application.CurrentProject.Path & "\exportacao.txt" 'caminho e ficheiro

Open ficheiro For Output As #1 'abrir ficheiro para escrita

Dim Inicio As Date
Dim Termino As Date
'--------------------------------------
Dim db As Database, RS As Recordset
Dim strSQL As String

Inicio = DataInicio
Termino = DataTermino

Set db = CurrentDb


strSQL = "SELECT SYSDPV, CODIGODOBLOCO, CÓDIGODOCLIENTE, NPARCELAS, "
strSQL = strSQL & "NPARCELAS, ODESF, ODCIL, ODEIXO, OEESF, OECIL, OEEIXO, "
strSQL = strSQL & "NPARCELAS, NPARCELAS, NPARCELAS, NPARCELAS, NPARCELAS, "
strSQL = strSQL & "NPARCELAS, NPARCELAS, DATA FROM SYSPDV WHERE (((SYSPDV.DATA) Between [Forms]![exportar]![DataInicio] And [Forms]![exportar]![DataTermino]));"


Set RS = db.OpenRecordset(strSQL)
With RS
Do While Not .EOF 'vai correr e adicionar linha a linha
Print #1, "insert into TBPROCESSO (COD_ORDEM, NUM_ORDEM, COD_CLIENTE, COD_USUARIO, DIOP_ESF_DIR, DIOP_CIL_DIR, EIXO_DIR, DIOP_ESF_ESQ, DIOP_CIL_ESQ, EIXO_ESQ, COD_BLOCO_DIR, COD_BLOCO_ESQ, ANTI_REFLEXO, ANTI_RISCO, UV, COLORACAO, COD_MONTAGEM, COD_MATERIAL, DATA_CRIACAO)"
Print #1, "VALUES("
Print #1, "" & RS.Fields(0) & "," & "'" & RS.Fields(1) & "'" & "," & RS.Fields(2) & "," & RS.Fields(3) & "," & RS.Fields(4) & "," & RS.Fields(5) & "," & RS.Fields(6) & "," & RS.Fields(7) & "," & RS.Fields( & "," & RS.Fields(9) & "," & RS.Fields(10) & "," & RS.Fields(11) & "," & RS.Fields(12) & "," & RS.Fields(13) & "," & RS.Fields(14) & "," & RS.Fields(15) & "," & RS.Fields(16) & "," & RS.Fields(17); "," & "'" & Format(RS.Fields(18), "mm/dd/yyyy") & "'" & ");"
.MoveNext

Loop
End With

RS.Close
db.Close

Close #1

MsgBox "Efetuado para: " & ficheiro, vbInformation, ""
End Sub

Santo Natal também para si e para os seus
será
strSQL = strSQL & "NPARCELAS, NPARCELAS, DATA FROM SYSPDV WHERE DATA Between #" & [Forms]![exportar]![DataInicio] & "# And #" & [Forms]![exportar]![DataTermino] &"#"
Atenção aos nomes reservados do Access (data, etc)

bom dia Alexandre Neves
Bom dia Todos

Deu certo Alexandre

veja o resultado
insert into TBPROCESSO (COD_ORDEM, NUM_ORDEM, COD_CLIENTE, COD_USUARIO, DIOP_ESF_DIR, DIOP_CIL_DIR, EIXO_DIR, DIOP_ESF_ESQ, DIOP_CIL_ESQ, EIXO_ESQ, COD_BLOCO_DIR, COD_BLOCO_ESQ, ANTI_REFLEXO, ANTI_RISCO, UV, COLORACAO, COD_MONTAGEM, COD_MATERIAL, DATA_CRIACAO)
VALUES(
349136,'700573',0,1,1,+1,00,1,1,+1,00,-0,25,90,1,1,1,1,1,1,1,'12/15/2020');
349137,'700569',0,1,1,000,-0,25,90,0,1,1,1,1,1,1,1,1,1,'12/15/2020');
349140,'700577',0,1,1,000,1,1,0,-0,25,15,1,1,1,1,1,1,1,'12/15/2020');
349141,'700579B',0,1,1,+0,25,,,+0,25,,,1,1,1,1,1,1,1,'12/15/2020');
349194,'702919',0,1,1,0,-1,0,0,60,-0,25,-0,50,130,1,1,1,1,1,1,1,'12/15/2020');

Muito Obrigado
Agradeço