This is the code

Option Explicit
Dim hh As Long
Dim ww As Long
Dim procura1 As String
Dim procura2 As String

Private Sub BtnData_Click()
Me.Width = 9135
Me.Height = 7995
FraData.Visible = False
procura1 = TbxData1.Text
procura2 = TbxData2.Text
DtaEnvBD.rsFacturas.Open
DtaEnvBD.rsFacturas.Filter = "Data>=#" & procura1 & "# AND data<=#" & procura2 & "#"
act_lvw
ParametrizarLvwFacturas
ListarRsFacturas
LvwFacturas.Visible = True
End Sub