Ho adattato il tutto per access e funziona perfettamente come l'ho fatto io.

Cmq per convertire un dato in String puoi utilizzare la funzione CStr:

CStr(ArrTesto1)