主题：[求助]自定义函数问题

'连接表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {系统设置}"
dt = cmd.ExecuteReader()

Dim ctm As String = Args(0)  '窗体名
Dim kjm As String = Args(1)  '控件名
Dim szm As String = Args(2)  '设置名
Dim val As String = Args(3)  '设置值
Dim xx As String = Args(4)  '选项  设置值/默认值/列表值
Dim dr As DataRow= dt.Find("涉及窗体 = '" & ctm & "' and  控件 = '" & kjm & "' and 设置项 = '" & szm & "'")
If dr Is Nothing Then  '如果未找到此行
    dr = dt.AddNew()   '则增加一行
End If
dr("涉及窗体") = Args(0)
dr("控件") = Args(1)
dr("设置项") = Args(2)
dr(xx) = Args(3)

运行这个自定义函数，无能达到预期效果，求助大家