vabbè cmq hai provato con gli apici?
poi non so se sia giusto "If Not (Data1.Recordset.NoMatch) Then"
io avrei messo "If Not (Data1.Recordset.EOF) Then" perchè il .NoMatch
restituisce qualcosa solo se si usa il metodo SEEK almeno in vb6.

ciao.