Attribut problem

Jag skal lave noget kode, hvor nogle felter skal udfyldes. I Do/while løkken skal jeg kunne skifte navnet på form feltet. men jeg får fejlmeddelelsen "Microsoft Access kan ikke finde feltet feltnavn1, der refereres til i udtrykket.
Koden ser slådes ud:

tal = 0
    Dim feltnavn1 As String
    Dim feltnavn2 As String

    Do While Not Rst.EOF
        tal = tal + 1
        feltnavn1 = "Varenummer" & tal
        feltnavn2 = "Antal" & tal
       
        Me.[feltnavn1].Visible True
        MsgBox Rst.Fields("Varenummer")
        MsgBox Rst.Fields("Antal")
        Me.[feltnavn1] = Rst.Fields("Varenummer")
        Me.[feltnavn2] = Rst.Fields("Antal")
       
       
        Rst.MoveNext
    Loop



Det er denne linie, den ikke kan lide:
Me.[feltnavn1].Visible True

Hvordan skal jeg skrive...?