用INI文件或者注册表等等方法存储您的密码,然后
'返回连接字串
Public Function QueryConnectionString() As String
QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _
";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD
End Function