SQL запрос в VBA для FireBird

Ребята помогите кто знает или может. У меня такая проблемма. Мне надо получить данные из таблицы FireBird посредством SQL запроса в VBA и вывести их на созданную мной форму. Проблемма в неправильном представлении формата даты или самой даты. Ну это мое мнение. Перепробовал разные форматы дат и ".", и "/", и "-", также "ММ/дд/гггг", "дд/ММ/гггг". Также менял формат даты Винды в "Региональных настройках". Ничего не получается.

Выдает ошибку то: "Type Mismatch", то "Несоответствие типов данных в выражении условия отбора". Был и тут тоже: http://www.sql.ru/faq/faq_topic.aspx?fid=157

Здесь ссылка на принтскрины, а то не знаю ка добавить в тему: https://drive.google.com/drive/folders/1goLfVZ3-9Y7u1tSbOoJP2ahkNisKnWn2

Здесь сам текст запроса:

Private sDAOConnect, SQLQuery As String
Private dbb As Database
Private myRS As Recordset

Private Sub CommandButton1_Click()

'Dim sDTStart, sDTFinish As String
Dim sDTStart, sDTFinish As Date


On Error GoTo ErrorHandler
'----------------------------------------------------------------------------
sDTStart = CDate(TextBox1.Text)

'================= CONNECT DB FIREBIRD ("FIRE_KZP_BUGRY") =================
    sDAOConnect = "ODBC;DSN=FIRE_KZP_BUGRY;UID=SYSDBA;PWD=784523;"
    Set dbb = DBEngine.Workspaces(0).OpenDatabase("", 0, False, sDAOConnect)
'----------------------------------------------------------------------------
' #" & Format(q, "mm\/dd\/yy hh\:mm\:ss") & "#

SQLQuery = "SELECT DT FROM BALANS_MANUAL WHERE DT = #" & Format(sDTStart, "mm\/dd\/yy hh\:mm\:ss") & "#"

Label1.Caption = SQLQuery
Set myRS = dbb.OpenRecordset(SQLQuery, dbOpenSnapshot, dbReadOnly)

'-------------------------------------------
'   Clean up before starting next query
    myRS.Close
    Set myRS = Nothing
'-------------------------------------------
'----------------------------------------------------------------------------
'============= CLOSE UP FIREBIRD ("FIRE_KZP_BUGRY") ==============
    dbb.Close
'----------------------------------------------------------------------------

Exit Sub
ErrorHandler:
    HandleError

End Sub

Заранее благодарен!