on error goto 什么吗?还goto阿,不明白了
On Error GoTo error
AccessCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\Ast2100.mdb" & ";Persist Security Info=False"
MsgBox "成功"
GoTo continue
error:
MsgBox "连接失败"
Exit Function
continue:
成功之后还说失败,,,,,,,,什么阿
什么破VB