prova a scrivere diversamente il caricamento nel tag del campo NOrdine:
codice:
Do While rs.EOF = False 
   ind = ind + 1
   If txtdata.Text = (rs!data) Then
     Set mItem = ListView1.ListItems.Add(,,CStr(rs("NOrdine")))      
     mItem.ListSubItems.Add , , CStr(rs("OraPresa")) 
     mItem.ListSubItems.Add , , CStr(rs"Nome"))
     mItem.ListSubItems.Add , , CStr(rs("Indirizzo")) 
     mItem.ListSubItems.Add , , CStr(rs("Telefono"))
     mItem.Tag = rs("Nordine")
   End If
   rs.MoveNext
Loop