<P>在《进销存管理系统》里修改源码如下：<BR>——————————————————————————————————————————————<BR>Public Sub Main()<BR>'附加数据库<BR>&nbsp; On Error Resume Next<BR>&nbsp; con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"<BR>&nbsp; con.Open&nbsp;&nbsp;&nbsp;&nbsp; '打开数据库连接<BR>&nbsp; Set rs = New ADODB.Recordset<BR>&nbsp; '开始附加数据库<BR>'&nbsp; str = "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path + "DataSourcedb_SSS_Data.MDF" + "', @filename2 = N'" + App.Path + "DataSourcedb_SSS_Log.LDF" + "'"<BR>''&nbsp; rs.Open str, con, 1, adLockOptimistic<BR>'&nbsp; Set rs = con.Execute(str)<BR>&nbsp; con.Close&nbsp; '关闭数据库连接</P>
<P>&nbsp; PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SSS"<BR>&nbsp; frm_Star.Show<BR>End Sub<BR>——————————————————————————————————————————————<BR>同时手动附加数据库，运行后错误如下：<BR>***************************************************<BR>&nbsp;&nbsp;&nbsp; [dbnetlib][connectionOpen(connect()).]SQL.Server不存在或拒绝访问。<BR>&nbsp;&nbsp;&nbsp; 点击“确定”后，又提示：<BR>&nbsp;&nbsp;&nbsp; 实时错误'-2147467259(80004005)':<BR>&nbsp;&nbsp;&nbsp; 对象'Refresh'的方法'IAdodc'失败<BR>***************************************************</P>
<P>&nbsp;&nbsp;&nbsp; 请问该怎么办？<BR>&nbsp;&nbsp;&nbsp;&nbsp;请尽快帮我指点，谢谢。</P>