funcion callbyname

[KenMasters]

cuando intento usar la siguiente linea me sale error y no comprendo donde puede estar el problema

Código vb:

dim n3 as string
dim v1 as string
dim ubicacion as string
 
 
v1="1"
n3 = sqlcamp1.Fields(0)
ubicacion = 1
    
CallByName Me, "v" & ubicacion, VbLet, sqlcamp1.Fields(0)
 
no asigna a la variabla v1 el valor de sqlcamp1.fields(0)