Dim dbConnection As New OleDb.OleDbConnection(connstr)
        Dim dbCommand As New OleDb.OleDbCommand("", dbConnection)
        Dim hv As String
 
        FileOpen(1, pfad, OpenMode.Input)
        dbConnection.Open()
 
        Do While Not EOF(1)
            hv = LineInput(1)
            dbCommand.CommandText = "INSERT INTO [Tabelle] VALUES ('" & Mid(hv, _
              5, 10) & "'"
            dbCommand.ExecuteNonQuery()
        Loop
 
        dbConnection.Dispose()
        dbCommand.Dispose()

        Do While Not EOF(1)
            hv = LineInput(1)
            dbConnection.Open()
            dbCommand.CommandText = "INSERT INTO [Tabelle] VALUES ('" & Mid(hv, _
              5, 10) & "'"
            dbCommand.ExecuteNonQuery()
            dbConnection.Close()
        Loop