Dim constr As String = "data source= \\×××.×××.×××.×××\SharedDocs\TEST.DB3"  打不开数据库,是哪的问题呢