If TryConnectHost("www.baidu.com") Then If Network.Ping("www.baidu.com") Then Messagebox.Show("可以访问") Return End IfEnd If
'如果不能访问,就切换到你的access数据库 e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "成绩数据.mdb;Persist Security Info=False"