主题：修改数据源问题

If e.Name="wangmin" Then 

    If FileSys.FileExists("c:\windows\wangminsql.txt") Then

        Dim sqlconstring As String =FileSys.ReadAllText("c:\windows\wangminsql.txt")

        Dim sqluser,sqlip,sqlpassword As String

        Dim Multi As String = sqlconstring

        Dim Values() As String

        Values = Multi.split("|")

        sqlip=values(0)

        sqluser=values(1)

        sqlpassword=values(2)

        Dim sqlconn As String="Provider=SQLOLEDB.1;Password="& sqlpassword &";Persist Security Info=True;User ID="& sqluser &";Initial Catalog=xiangmu;Data Source="& sqlip &""

        If Connections.TryConnect(sqlconn)=False Then

            MessageBox.Show("数据库连接失败,请联系管理员进行数据库连接工作!")

        Else 

            e.ConnectionString=sqlconn

        End If

    Else

        MessageBox.Show("数据源连接文件已经被破坏,请联系管理员进行数据库连接工作!")

    End If

End If

MessageBox.Show(e.ConnectionString )

运行后， 程序的原来设置的数据源没有修改

仍然弹出错误：