附加数据库时出现错误，不知道什么原因,很郁闷！！！

Question

我在附加数据时，con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ; PWD ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &""这句话总是出错，不知道错在哪，急！ 部分代码如下： Public Sub main() 
'读取数据库文件 
Open (App.Path & "\DataBase.ini") For Input As #1 
Line Input #1, Intext 
Server = Mid(Intext, 10, Len(Trim(Intext)) - 9) 
Line Input #1, Intext 
pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6) 
Close #1 '附加数据库 
On Error Resume Next 
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ;PWD ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &"" con.Open '打开数据库连接 
Set rs = New ADODB.Recordset '开始附加数据库 
Str = "EXEC sp_attach_db @dbname=N'db_SSS',@filename1=N'" + App.Path + "'\DataBase\db_OA_Data.MDF" + "'@filename2=N'" + App.Path + "\DataBase\db_OA_Log.LDF" + "'" rs.Open Str, con, 1, adLockBatchOptimistic Set rs = con.Execute(Str) con.Close '关闭数据库连接 '共享连字符串 
PublicStr="Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&";PWD ="pwd"; Initial Catalog =db_OA;Data Source="&Server&" " frm_login.Show End Sub

Answer 1

'On Error Resume Next去掉后看看出什么错
还有， 你的uid是什么？
你debug一下看看uid和pwd是什么
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ;PWD ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &""

Answer 2

con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID=" & uid & " ; PWD =" & pwd & "; Initial Catalog =db_OA;Data Source=" & Server & " "合理使用空格