主题：请教：自定义函数错误

下面的一段代码，老是出错，自认是出在列名的引用上，不知咋改，哪位老师给指导一下

Dim txt As String = Args(0) '筛选的数据表名称
Dim txt1 As String = Args(1) '要筛选的列

Dim dr As DataRow = DataTables("yhgl").SQLFind("yhzh = '"& _yhzh &"'")

DataTables(txt).LoadFilter = "txt1 = '" & dr("zybm") & "'"
DataTables(txt).Load()