提示什么错？你的连接字符串贴出来。

1、你给的地址有问题，说的和地址的不符，以后注意。

2、花生壳的话，对应的可能不是你写的那个ip，可能有多个ip，代码改一下

Dim result As String = "!false"
For Each address As System.Net.IPAddress In System.Net.Dns.GetHostAddresses("花生壳域名")
    Dim udp As New System.Net.Sockets.UdpClient(0)
    Dim ip As New System.Net.IPEndPoint(address, 3389)
    Dim bytes() As Byte = System.Text.Encoding.Unicode.GetBytes(input)
    udp.Send(bytes, bytes.Length, ip) \'发送数据
    Dim sdt As Date = Date.Now
    While Date.Now < sdt.AddSeconds(1) \'等1秒
        If udp.Available > 0 Then
            Dim remoteIp As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
            Dim rbytes() As Byte = udp.Receive(remoteIp)
            result = System.Text.Encoding.Unicode.GetString(rbytes) \'获取返回值
        End If
    End While
    udp.Close()
    If result <> "!false" Then Exit For
Next

Return result

 如果你的网站和foxtable在同一台电脑上，没必要用外网的ip

 只有你的网站(vs项目）和foxtable的数据不在同一台电脑，vs项目要想访问foxtable的内容才需要用到你的ip

 查看域名对应多少个ip，参考

Dim IPs As Net.IPAddress() = Net.Dns.GetHostAddresses("www.baidu.com")
For Each ip As Net.IPAddress In IPs
    msgbox(ip.ToString())
Next