帮忙看看这个SQL语句错在哪了,该如何解决

帮忙看看这个SQL语句错在哪了
Dim   sql   As   String   =   "update   diming   set   d_py= "   &   LCase(IndexCode( "d_name "))

其中   d_py，d_name是表   diming   的两个字段，LCase(IndexCode())【   Function   IndexCode(ByVal   IndexTxt   As   String)   As   String】是自己定义的一个函数，上面写法自定义的函数会把字段d_name当作一个d_name字符串来处理，大家看看这么修改啊？

[解决办法]
一着急,写错了,更正一下
Dim sql As String = "update diming set d_py= ' " & LCase(IndexCode(Dt.Rows[0][ "d_name "].ToString())) & " ' "