代码如下，总是提示这一具有问题：cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=aifei;Data Source=192.168.1.10"
请老师指教，谢谢

Sub AddData()
   SourceM = "\\米兰-pc\d\数据库\MSSQL\Data\db_SCGL_Data.MDF"
   SourceL = "\\米兰-pc\d\数据库\MSSQL\Data\db_SCGL_Log.LDF"
      Set con = New ADODB.Connection
     cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=aifei;Data Source=192.168.1.10"
     On Error Resume Next
     Set rs = New ADODB.Recordset
         str = "EXEC sp_attach_db @dbname = N'db_SCGL', @filename1 = N'" + SourceM + "', @filename2 = N'" + SourceL + "'"
        Set rs = con.Execute(str)

   Dim cn As New ADODB.Connection
   cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=aifei;Initial Catalog=db_SCGL"
   If Err.Number = -2147217900 Then              '捕捉错误号
      Frm_mm.Show
      Unload Me
   End If
End Sub

写错了符号con/cnn

"Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=aifei;Data Source=192.168.1.10;initial catalog =数据库名"
少了连接的数据库，如果192.168.1.10是安装数据库的IP地址，应该没有错误。
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=aifei;Initial Catalog=db_SCGL"   这个语句又没有服务器地址，也就是 Data Source=192.168.1.10;
其实局域网连接数据库非常简单，设置安装数据库的电脑为服务器，使用服务器的计算机名为服务器，利润服务器的计算机名是 JYWFWQ，那么连接语句直接就写成：
"Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;Password=aifei;Data Source=JYWFWQ;initial catalog =db_SCGL"