Boa tarde Leandrum,
Segue um simples exemplo de como fazê-lo:
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'txtData1 - Caixa de Texto 1.
'txtData2 - Caixa de Texto 2.
'txtResultado - Botão que armazenará o resultado da consulta.
'btnConsultar - Botão que realizará a consulta.
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'No evento click do botão criado xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub btnConsultar_Click()
Dim tempData1 As Date
Dim tempData2 As Date
Dim SQL As String
Dim Rs As DAO.Recordset
'É aconselhável, aqui, você validar o que foi digitado nas cxs de texto antes de atribuir às variáveis xxx
tempData1 = CDate(Format(txtData1.Value, "mm/dd/yyyy"))
tempData2 = CDate(Format(txtData2.Value, "mm/dd/yyyy"))
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Instrução simples, para a consulta em questão xxxxxxxxxxxxxxxxxxx
SQL = ""
SQL = "Select ProductName As NomeProduto From TB_Products"
SQL = SQL + " Where Data_Ini = #" & tempData1 & "# and Data_Fim = #" & tempData2 & "#"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Recordset do tipo DAO, só para facilitar o exemplo xxxxxxxxx
Set Rs = CurrentDb.OpenRecordset(SQL)
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Testa o retorno da consulta a atribui à cx de texto de resultado
If Rs.EOF = False Then
txtResultado.Value = Rs("NomeProduto")
End If
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Fecha o recordset e libera memória xxxxxxxxxxxxxxxxxxxxxxxxx
Rs.Close
Set Rs = Nothing
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Fim do procedimento xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
End Sub
Espero ter ajudado.
Um abraço.
