主题：数据源判断问题

Dim S As String = User.ExtendedValues("IP")
Output.Show(S)
Dim s1 As String ="Provider=SQLOLEDB.1;Password=f53239897xjgl;Persist Security Info=True;User ID=sa;Initial Catalog=Lppj;Data Source="& s &""
If Connections.TryConnect(s1) = True Then
    MessageBox.Show("数据源无法连通!")
End If
上述代码不能正确判断数据源是否连通

把User.ExtendedValues("IP") 改成具体的IP地址能够判断，请 问为什么