我是没有办法了！一个问题搞了两天了！现在只有求救了！！

Question

Dim con As New ADODB.Connection
Dim strcon As String
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Mode=Read|Write"
con.Open (strcon)
编译时出现:invalid outside procedure错误
不知是那儿没有弄好！还是编译器有问题
请大家帮我看看
谢谢大家

Answer 1

with conn
    If .State = adStateOpen Then .Close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
end with

Answer 2

我以前这样子写的也没有错的，现在用了ACCESS2003后把驱动改为了4.0后，每次到这里都出错的！
是不是编译器出问题了？

Answer 3

ADO驱动问题，重装一下VB试试。