Private Sub DataEnvironment_Initialize()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
strConn = strConn & App.Path & "\txl.mdb" & ";Persist Security Info =Ture"
Con.ConnectionString = strConn
End Sub一个数据库环境初始化中的代码~~~运行后说不符合OLE DB的规定~~~但用以下的代码覆盖后就正常了~~~Private Sub DataEnvironment_Initialize()
Dim strConn As String
strConn = "Provider =microsoft.jet.oledb.4.0;Password=;Data Source="
strConn = strConn & App.Path & "\txl.mdb" & ";Persist Security Info=True"
Con.ConnectionString = strConn
End Sub没发现什么不同啊~~~请指教~~~谢谢~~~