主题：请教串口问题

Dim kj As String = e.sender.name
Dim dr As DataRow
Static Buff As String = "busy"
dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
If dr IsNot Nothing Then
    Dim dh1 As String = dr("电话号码1")
    Dim dh2 As String = dr("电话号码2")
   
    Ports("COM1").Open()
    Ports("COM1").Write("ATD+'"& dh1 &"'" & vbCrLf)
    If instr(buff , "BUSY") = 1 Then

        Buff = ""
        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If
End If

代码改成这个也不管用啊