请问哪位，能告诉我这段代码哪里错误吗？？

Private Sub Form_Load()
Dim Conn As New ADODB.Connection
Dim Rc As New ADODB.Recordset
Dim Sql As String
Sql = "select * from xs"
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.path & '\data.MDB'&';Persist Security Info=False'"

Conn.Open
Rc.Open Sql, Conn, adOpenKeyset, adLockOptimistic
Set da1.DataSource = Rc
da1.Refresh

End Sub
运行后出现如下错误：
实时错误＇－2147217805(80040e73)'
指定的初始化字符串不符合OLE DB规定

调试处指定为:
conn.open

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\data.MDB ;Persist Security Info=False"
注意我还去掉了一些东西

我以为这个不是问题的……
你自己看嘛 "app.path"这个字符串（长度为8的这个字符串）成为了ConnStr的一部分了 那个AND符号也是， 单引号也是
你这个ConnStr明明是静态的 就是Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.path & '\data.MDB'&';Persist Security Info=False'
app.path不会解析的。

VB里字符串用""括起来，单引号没用。不知道我讲得是不是详细了