下面这条sql语句为什么不能执行，报错显示 无效字符。请各位前辈指点

Public Sub Main()
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"

con.Open
Set rs = New ADODB.Recordset
'开始附加数据库

Str=＂EXEC sp_attach_db@dbname=N＇db_SSS＇,@filename1=N＂+_
   App.Path+＂\DataSource\db_SSS_Data.MDF＂+_

红色执行附加语句中 提示：编译错误，无效字符 Str=＂EXEC sp_attach_db @dbname=N＇db_SSS＇,@filename1=N'＂+_
App.Path+＂\DataSource\db_SSS_Data.MDF '＂

试试看 Str=＂EXEC sp_attach_db@dbname=N'db_SSS',@filename1=N'＂+ _  '+和_之间有1个空格
App.Path+\DataSource\db_SSS_Data.MDF'＂

补充：VB ,  网络编程