La acción OpenForm se canceló

Quiero pedirles por favor me ayuden a solucionar un problema en una base de datos de Access.

Tengo un botón en el formulario principal, el cual es para ver los reportes realizados en otro formulario llamado VER REPORTE, seleccionando un periodo de fechas, cuando hago click en este botón me muestra el mensaje “La acción OpenForm se canceló”. Lo siguiente es lo que tengo en el código de ese botón;

Private Sub Comando22_Click()

On Error GoTo Err_Comando22_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "VER REPORTE"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 Exit_Comando22_Click:

    Exit Sub

 Err_Comando22_Click:

    MsgBox Err.Description

    Resume Exit_Comando22_Click

Y en el código del formulario “VER REPORTE” tengo esto:

Private Sub Form_Open(Cancel As Integer)

    Dim datDia As Date, intRegs As Integer, strDia As String, strAux As String

    Dim datDia1 As Date, strDia1 As String, strAux1 As String

    datDia = InputBox("De que dia deseas Consultar datos?(dd/mm/aa)", "REPORTE", Date)

    datDia1 = InputBox("Hasta que dia? (dd/mm/aa) ", "REPORTE", Date)

    strAux = CStr(datDia)

    If Len(strAux) = 7 Then

        strAux = "0" & strAux

    Else

    End If

    strAux1 = CStr(datDia1)

    If Len(strAux1) = 7 Then

        strAux1 = "0" & strAux1

    Else

    End If

    strDia = Mid$(strAux, 4, 2) & "/" & Left$(strAux, 3) & Right$(strAux, 2)

    strDia1 = Mid$(strAux1, 4, 2) & "/" & Left$(strAux1, 3) & Right$(strAux, 2)

    strTable = "Select * From TablaReporte Where (TablaReporte.FECHA Between #" & strDia & "# And #" & strDia1 & "# ) Order By Fecha;"

    Set db = CurrentDb

    Set rs = db.OpenRecordset(strTable)

    With rs

        If .EOF Then

            MsgBox "No hay datos de ese dia"

            DoCmd.Close

            Exit Sub

        Else

            .MoveLast

            intRegs = .RecordCount

            txtNoRegs = intRegs

            .MoveFirst

        End If

    End With

    Actualizar_Datos

End Sub

Ojalá alguien pueda ayudarme a detectar y corregir los errores