questo poi non mi è chiaro...
codice:
   Do While Not linea.EOF
      If linea("numero") = txfile(0) Then
         presente = True
         identif = linea(0)
         Exit Do
      End If
      linea.MoveNext
   Loop
non basta una select con clausola Where?

Non capisco poi xchè fai l'add con il recordset invece di fare una query di tipo Insert.

Anche l'ultimo ciclo sul recorset non mi è chiaro... non basterebbe una select con clausola Where?