Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        'Dim tStartDaten As ThreadStart
        'Dim tDaten As Thread
 
        counter1 += 1
        Me.Label1.Text = counter1
 
        If counter1 >= 60 Then
            counter1 = 0
 
            durchlauf += 1
            Label3.Text = durchlauf
 
            ' ''Thread initialisieren
            'tStartDaten = New ThreadStart(AddressOf ImportFA)
            'tDaten = New Thread(tStartDaten)
            'tDaten.Start()
            '' tDaten.Join()
 
            Call ImportFA()
            counter1 = 0
        End If
 
 
 
    End Sub
 
    Private Sub ImportFA()
 
        'Dim navi_con As New OdbcConnection
        Dim navi_cmd As New OdbcCommand
        Dim navi_dr As OdbcDataReader
 
 
        Dim queryString As String = SQLSTRING
 
        Using navi_con As New OdbcConnection("PROVIDER=MSDASQL;dsn=NaviServer;")
            navi_cmd.Connection = navi_con
            navi_cmd.CommandText = queryString
            navi_con.Open()
 
            navi_dr = navi_cmd.ExecuteReader(CommandBehavior.CloseConnection)
 
 
            Do While navi_dr.Read()
 
 
            'Alles rausgeschmissen... 
            Loop
            navi_dr.Close()
 
        End Using
 
  End Sub