VB连接ACCESS，鼓捣了一上午，老是报错，请大神给看看，问题出在哪里？
代码如下：
Dim conn As New ADODB.Connection '声明并创建连接对象
Dim rs As ADODB.Recordset '声明连接对象类型，数据集，也可以理解成数据查询的结果。。。
Dim sql$ ' 声明一个接收sql语句的字符串变量 等于dim sql as string
Private Sub Command1_Click()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\test.mdb;Persist Security Info=False'连接数据库的驱动字符串"
conn.Open '打开连接的数据库
MsgBox "数据增加成功！", vbOKOnly, "提示"
End Sub

我刚开始学VB，请大家给指教一下，在网上查了一上午，也没鼓捣明白。。。

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\test.mdb;Persist Security Info=False" '连接数据库的驱动字符串
你这一行双引号的位置错了，把原本注释的内容也写到连接字符串里了上面这是改正之后的写法

'　在 VB 中使用数据库表的前期操作——
'　点击顶行菜单中的：工程 → 引用；勾选
'　Microsoft ActiveX Data Objects 6.1 Library
'　C:\Program Files\Comm Files\System\Ado\msado15.dll

谢谢