主题：定义字符串

Dim ZCQC As String = "资产期初金额"
Dim HBZJ As String = "资产项目= '货币资金'and 会计年度 = '" & e.DataRow("会计年度") & "' And 期间 = '" & e.DataRow("期间") & "'"
Select Case e.DataCol.name
    Case "资产期初金额"
        e.DataTable.find("资产项目= '流动资产合计'")("ZCQC") = e.DataTable.Compute("sum(资产期初金额)",HBZJ)
End Select

上述代码中黄色部分我也想用字符代替，但是不能Dim ZCQC As String = 资产期初金额这样定义字符串，该怎么办？