net中启动Application.StartupPath后，无法用字符串加载绝对路径
如题，
Dim r As System.IO.StreamReader
r = New System.IO.StreamReader(Application.StartupPath & "\pass.txt", System.Text.Encoding.Default)
Dim str As String = ""
Do While Not r.EndOfStream
str = r.ReadLine
Loop
读取了相对路径下的文本文件，其包含一个绝对路径，用其路径字符串连接数据源，老是提示的Application.StartupPath相对路径名，找不到目标数据源。
[解决办法]
换测试
Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location)
