Do Until EOF(1)
    Line Input #1, textline
    
    text = Split(textline, DELIMITER)
    With Sheets(1)
        .Cells(i, 1).Value = Int(text(0))
        .Range("A" & i & "").NumberFormat = "0"
    End With
        i = i + 1
    
Loop

    Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        strSQL = "Select F1 from [" & Sheets(2).Name & "$] where F1=""" & rstTXT(0).Value & """;"
   Case Is >= 12
        strSQL = "Select F1 from [" & Sheets(2).Name & "$] where F1=" & rstTXT(0).Value & ";"
    End Select
 Else
  GoTo 111
 End If
    
    
    'rst01.CursorLocation = 3
     rst01.Open strSQL, cn, adOpenKeyset, adLockPessimistic

    If rst01.RecordCount = 0 Then
        r = 3
        Rows(r).Insert Shift:=xlDown
        Cells(r, 1).Value = rstTXT(0).Value
    End If
    rst01.Close