你红色的连接字符串是否正确?
If e.Name = "users" Then
If Network.Ping("192.168.0.100") = True Then
e.ConnectionString = "Provider=SQLOLEDB.1;Password=666666;Persist Security Info=True;User ID=tttttttt;Initial Catalog=用户;Data Source=192.168.0.100"
Else
e.ConnectionString = "Provider=SQLOLEDB.1;Password=666666;Persist Security Info=True;User ID=tttttttt;Initial Catalog=用户;Data Source=127.0.0.1"
End If
End If