If Network.Ping("192.168.0.100") = True Then
Connections.Add("鉴定软件", "Provider=SQLOLEDB.1;Password=sa@123;Persist Security Info=True;User ID=sa;Initial Catalog=" & fdr("数据源") & ";Data Source=192.168.0.100")
Else
Connections.Add("鉴定软件", "Provider=SQLOLEDB.1;Password=sa@123;Persist Security Info=True;User ID=sa;Initial Catalog=" & fdr("数据源") & ";Data Source=" & SysInfo.ComputerName & "")
End If