主题：[求助]数据源字符串的问题

Dim ipFile As String = e.ProjectPath & "sqlname.txt"

If e.Name = "SQL数据库" Then

    Dim oldStr As String = e.ConnectionString

    If Filesys.FileExists(ipFile) Then

       Dim ip As String = FileSys.ReadAllText(ipFile)

        e.ConnectionString = e.ConnectionString.Replace(oldStr,ip)

        MessageBox.show(e.ConnectionString)

    End If

End If