problema con select

[gerardo_goh]

Hola buenas noches, yo tuve un problema y la mejor opción que tuve fue el siguiente codigo, espero que te sirva, Saludos!!!!

Private Sub cmdCalcular_Click()

If lblInicial.Caption = Empty Or lblFinal.Caption = Empty Then
MsgBox "Favor de ingresar fechas, gracias..."
Else
adoVentas.Recordset.Filter = "fecha_venta >= #" & lblInicial.Caption & "# and fecha_venta <= #" & lblFinal.Caption & "#"
dg.Refresh
End If

End Sub