Private Sub Command5_Click()
    Dim cnn    As New ADODB.Connection
    Dim rst    As New ADODB.Recordset
    Dim strSQL As String
 
    Dim str1   As String
    Dim str2   As String
    Dim str3   As String
    Dim str4   As String
    CopyFile txt_ReadLine("config.ini", 1), txt_ReadLine("config.ini", 2)
 
    Wait_Hjl (2)
 
    str1 = Format(Now, "dd.mm.yyyy")
    str2 = txt_ReadLine("config.ini", 3)
    str3 = txt_ReadLine("config.ini", 4)
    str4 = txt_ReadLine("config.ini", 2)
 
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" _
    & App.Path & "\;" & "Extended Properties='Text'"
 
 
        strSQL = "SELECT COUNT(*) AS Anzahl FROM [contagem.txt] " & _
    "WHERE Date  = '" & str1 & "' AND Time BETWEEN '" & str2 & "' AND '" & str3 _
    & "'"
    cnn.Open
    rst.Open strSQL, cnn
    iSevenSegmentIntegerX1.Value = ssc0 + (rst!Anzahl)