数据库记录更新时列名能不能是变量呢？

UPDATE XX SET XM1 = '" & Trim(Label65(0).Caption) & "' WHERE YY = MM

这句里面的XM1是数据库中的一个列名，怎样实现变量化呢，因为列名里还有XM2,XM3,XM4....

从而实现
Dim i As Integer
for i = 0 to 10

UPDATE XX SET (XM i) = '" & Trim(Label65(0).Caption) & "' WHERE YY = MM

next i
这样的循环呢？

Dim i As Integer
for i = 0 to 10

UPDATE XX SET XM" & i & " = '" & Trim(Label65(0).Caption) & "' WHERE YY = MM

next i

Dim i As Integer
for i = 0 to 10

strSql = "UPDATE XX SET XM" & i & " = '" & Trim(Label65(0).Caption) & "' WHERE YY = MM "

next i