在.NET Compact FrameWork 下不能用Directory.GetCurrentDirectory, 否则会引发异常, 可以用下面的方法:
Imports System.IO
.......
Private RunAppDir As String
Private DatabaseFile As String
.......
'取得程序运行目录和数据库文件路径字符串
RunAppDir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
DatabaseFile = RunAppDir & "/Abpm.sdf"