我的 access加密后，VB程序打不开，该加段代码myapp = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
pt = "168168"
Adodc1.C & "Data Source=" & myapp & "db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""
请问 这段代码应该加到程序的哪里？

我也不知道。C是什么意思，这段代码是别人给我的，要不  该怎么改正？

Me.Caption = "系统登录" & "---" & xtname
myapp = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
pt = "168168"   `数据库密码168168
Adodc1.C & "Data Source=" & myapp & "txl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""

我在form-load中加如这段代码    还是提示 异常错误
大侠们  给指点指点啊

myapp = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
pt = "168168"
Adodc1.C & "Data Source=" & myapp & "txl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""
好晕
我复制到这上面就会少一段代码
郁闷

Adodc1.C & "Data Source=" & myapp & "txl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""
奇怪
怎么还会少呢

& "Data Source=" & myapp & "txl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""
好晕
什么东西
老丢！

onnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & myapp & "txl.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & pt & ""

好晕
什么东西
老丢！

肯定是屏蔽掉了

少了那么多东西
哎
总算知道 怎么回事了！