主题：ExecuteValues使用

If DjRows(n).isnull("中间人") = False Then
                msgbox(1)
                Dim cmd As new SQLCom mand
                cmd.Comm  andText = "Se lect * from {人员} Where 姓名 = '" & DjRows(n)("中间人") &"'"
msgbox(2)
                cmd.Connect  i
                Dim Val ues = cmd.Execut eValues
msgbox(3)
                If Val ues.Count > 0 Then
                    If Values("联系电话") IsNot Nothing Then
                        rt.Cells(9+2*n+1,15).Text = Valu es("联系电话")
                    End If
msgbox(4)
                    If Values("工作单位") IsNot Nothing Then
                        rt.Cells(9+2*n+1,8).Text = Valu es("工作单位")
                    End If
                    'If Values("常住地址") IsNot Nothing Then
                        'rt.Cells(9+2*n+1,12).Text = Valu es("常住地址")
                    'End If
                End If
            End If
执行上述代码时有如下错误：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.6.18.1
错误所在事件：自定义函数DaYingjiekuanDengJiBiao
详细错误信息：
调用的目标发生了异常。
从类型“DBNull”到类型“String”的转换无效。

原因是黄色代码部分，如果Values("联系电话") 确实为空，上述代码应该怎么修改？

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=130557&skin=0