主题：如何在xx.txt中设置数据源路径

如何在ip.txt中设置数据源路径，只要把数据库路径放在ip.TXT中就能打开项目。

 Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "坯布输入" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Dachang\E\MDB\坯布输入.mdb;Persist Security Info=False",ip)
    End If
End If