net中起动Application.StartupPath后，无法用字符串加载绝对路径

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)