主题：打开窗口报错

下面这段代码写在窗口-全局事件-enter里面，打开窗口时报错

此主题相关图片如下：exy~ydkd3p4dihbn6%(fyd.jpg

代码如下：

Dim kj As String = e.sender.name
Dim dr As DataRow
dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
Dim dh As String = dr("电话号码")

Ports.Add("COM1")
Ports("COM1").Open()
With Ports("COM1")
        .Write("ATD+'"& dh &"'" & vbCrLf)
End With

请问他爸，这是怎么回事呢？