试试下面的代码
dim cnn as adodb.connection
set cnn =new connection
dim strConnect as stringCnn.CursorLocation = adUseClient
Cnn.ConnectionTimeout = 10
strConnect = "Driver={Sql Server};Server=ntserver;DataBase=DBName;UID=sa;pwd="
Cnn.Open strConnect

解决方案 »

  1.   

    你建一个后缀名为 .udl的文件,双击试着连接,成功后,用notepad打开,替代 strConnect最为保险。
      

  2.   

    不行,死掉了,和Initial Catalog或Data Source选错情况一样,连程序带vb全死。
    connectionString到底由什么组成的,怎么你给我的和原来的差别那么大?
      

  3.   

    试试下面的代码:
    dim cn as now adodb.connection
    cn.open "driver={sql server};server=服务器名;UID=sa;pwd=;database=数据库名"
      

  4.   

    to jasmine(Yaya)谢了 
    成了,能不能给讲讲这udl是什么东东
      

  5.   

    to crazymens(疯子)
    谢谢,我试试,不过没分了