Dim UserId, Password, InitialCatalog, DataSource
Set FSO = CreateObject("Scripting.FileSystemObject")
s = FSO.OpenTextFile("a.txt", 1).ReadAll
UserId = Split(Split(s, vbCrLf & "User Id=")(1), vbCrLf)(0)
Password = Split(Split(s, vbCrLf & "Password=")(1), vbCrLf)(0)
InitialCatalog = Split(Split(s, vbCrLf & "Initial Catalog=")(1), vbCrLf)(0)
DataSource = Split(Split(s, vbCrLf & "Data Source=")(1), vbCrLf)(0)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024