Option Explicit
    Dim Datei As String
    Dim Datei2 As String
    Dim Datei3 As String
    Dim counter As Integer
    Dim input_v As String
    Dim input_v5 As String
    Dim input_v6 As String
    Dim input_v7 As String
    Dim input_v8 As String
    Dim i As Long
    Dim a As Long
    Dim b As Long
    Dim sMsg As String
    Dim RS As ADODB.Recordset
    Private Fnr As Long
    Private test As Long
    Private Cn As ADODB.Connection
     ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'   +++++++++++++++ Verzeichnis suchen, ob verhanden!!! ++++++++++++++++
'   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
    Private Declare Function FindFirstFile Lib "kernel32.dll" Alias _
      "FindFirstFileA" ( _
    ByVal lpFileName As String, _
    ByRef lpFindFileData As WIN32_FIND_DATA _
 
) As Long
Private Declare Function FindClose Lib "kernel32.dll" ( _
    ByVal hFindFile As Long _
) As Long
 
Private Const INVALID_HANDLE_VALUE As Long = -1
Private Const MAX_PATH As Long = 260
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
Private Function FileExists(ByRef strFileName As String) As Boolean
    Dim wfdWFD As WIN32_FIND_DATA
    Dim hFile As Long
    hFile = FindFirstFile(strFileName, wfdWFD)
    FileExists = (hFile <> INVALID_HANDLE_VALUE)
    Call FindClose(hFile)
End Function
 
Private Sub Form_Load()
 
'   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'   ++++++++++++++++++ Textdatei einlesen ++++++++++++++++++++++
'   ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
    On Error GoTo Fehler
    counter = 0
 
       ' Datei öffnen
       Fnr = FreeFile
       Datei = "d:\Abfrage.txt"
 
 
       Open Datei For Input As #Fnr
 
       ' Sekunden zwischen den Events
       Timer1.Interval = 30000
 
Ende:
    Exit Sub
 
Fehler:
    Fnr = 0
    Timer1.Enabled = False
 
    MsgBox "Es trat ein Fehler beim Öffnen der" & _
           " Datei auf!", vbOKOnly Or vbCritical, "Problem"
    Resume Ende
 
    End Sub
 
Private Sub Command1_Click()
    Unload Me
End Sub