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