Dim ipfile As String = projectpath & "ip.txt"   \'定义Ipfile为配置文件
If filesys.FileExists(ipfile) = True Then     \'先检测是否有Ip.txt这个配置文件
    Dim dbfile As String = filesys.ReadAllText(ipfile)  \'将dbfile定义为配置文件的内容,即数据库的路径
    If filesys.FileExists(dbfile) = True Then    \'若指定的数据库存在
        If e.name ="Access" Then
            e.C & dbfile & ";Persist Security Info=False"  

        End If
    Else    \'若配置文件里的内容的指向不正确,即没有找到数据库文件
        If e.name ="Access" Then
            Dim dlg As new OpenFileDialog
            dlg.Filter = "Access文件|*.mdb"
            If dlg.ShowDialog = DialogResult.OK Then
                e.C & dlg.filename & ";Persist Security Info=False"
                filesys.WriteAllText(ipfile,dlg.filename,False)
            End If
        End If
    End If
Else   
    If e.name = "Access" Then
        Dim dlg As new OpenFileDialog
        dlg.Filter = "Access文件|*.mdb"
        If dlg.ShowDialog = DialogResult.OK Then
            e.C & dlg.filename & ";Persist Security Info=False"
            filesys.WriteAllText(ipfile,dlg.filename,False)
        End If
    End If
End If

projectpath 

publish下的话那只能放到这里面去咯.  或者你代码上加多一层路径

projectpath & "\\project\\ip.txt"