Devi dichiarare:

Dim Fld as Field
Dim Stringa1 as String

rs è il tuo recordset che dovrai aprire sulla tabella o con stringa di selezione. Non ho scritto l'open del recordset perchè non so se usi DAO o ADO.
Ciao