我用SQL语句把一个ACCESS的一张表中的数据导入到另外一个ACCESS数据库中的一张表，SQL语句在查询分析器中可以执行，但在程序中无法执行
Dim sql As String
Set cnn = New ADODB.Connection
'返回一个数据库连接
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\mrdata.mdb;user id=admin;password= "
sql = "insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0 ', 'Data Source= " & App.Path & "\mrdata.mdb;user id=admin;password= ')...FM_MarRegister(MR_M_NAME,MR_M_CERTNO,MR_F_NAME,MR_F_CERTNO,MR_MARCHARNO) select MR_M_NAME,MR_M_CERTNO,MR_F_NAME,MR_F_CERTNO,MR_MARCHARNO from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0 ', 'Data Source= " & url & ";user id=admin;password= ')...FM_MarRegister "
'Text1.Text = sql
cnn.Execute (sql)


我把SQL语句打出来在SQL的查询分析器中能完全执行，但是在VB程序中就提示SQL语句错误

[解决办法]
是不是你运行VB程序的机子不在Jet数据库机子上呢？
Microsoft.Jet.OLEDB.4.0 ', 'Data Source= " & App.Path & "\mrdata.mdb
你指定的JET数据库是运行VB程序的机子。如果不是要改路径。
[解决办法]
在VB程序中一定要注意引号的用法
还有字符串的连接问题
仔细看一下代码，自己应该能解决