Простая задача, а решить не могу.
Для выполнения некоторых действий нужно убедиться, что в таблицах данные обновлены и соответсвтвуют текущей дате

strSQL = "Select TblName, DateUpd as DateUpdateTbl from  tblInfo where TblName='tbl2G' or TblName='tbl3G' "

Set rst = CurrentDb.OpenRecordset(strSQL)
If Not rst.BOF Then ' не пустой
    rst.MoveFirst
    While Not rst.EOF
        DoEvents
        Debug.Print "Дата обновления(DateUpdateTbl):" & Format(rst![DateUpdateTbl], "dd\/mm\/yyyy")
        Debug.Print "Дата текущая:" & Format(Date, "dd\/mm\/yyyy")
        If Format(rst![DateUpdateTbl], "dd\/mm\/yyyy") <> "#" & Format(Date, "mm\/dd\/yyyy") & "#" Then
            cntrlDateTbl = cntrlDateTbl & "дата импорта:" & rst![DateUpdateTbl] & " - " & rst![tblName] & vbCrLf
        End If
        rst.MoveNext
    Wend
End If
rst.Close
Set rst = Nothing

Debug выдает
Дата обновления(DateUpdateTbl):04/01/2019
Дата текущая:01/04/2019

Непойму, я же формат задаю одинаковый, в чем проблема? Помогите пожалуйста.

https://www.sql.ru/forum/1310884/ne-mogu-sravnit-daty-pomogite-pozhaluysta-fak-smotrel