Access - Criterio consultas access

Private Sub...

        'Declaramos las variables

    Dim FIni As String, FFin As String

    Dim miSql As String

    Dim miQry As DAO.QueryDef

        'Solicitamos la información

    FIni = InputBox("Fecha inicio", "FECHA")

    FFin = InputBox("Fecha fin", "FECHA")

        'Comprobamos los valores introducidos

    If FIni = "" Then

        miSql = "SELECT * FROM Tabla1 WHERE Tabla1.Fecha=#" & Format(Date, "mm/dd/yy") & "#"

    Else

        If FFin = "" Then

            MsgBox "No hay datos para mostrar", vbInformation, "SIN DATOS"

            Exit Sub

        Else

            FIni = CDate(FIni)

            FFin = CDate(FFin)

            miSql = "SELECT * FROM Tabla1 WHERE Tabla1.Fecha BETWEEN #" _

                    & Format(FIni, "mm/dd/yy") & "# AND #" & Format(FFin, "mm/dd/yy") & "#"

        End If

    End If

        'Asignamos la SQL a la SQL de la consulta

    Set miQry = CurrentDb.QueryDefs("CDatos")

    miQry.SQL = miSql

        'Abrimos la consulta

    DoCmd.OpenQuery "CDatos"

End Sub