如何连接远程的数据库？(VB)

Question

Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With
///////

Answer 1

在你的“& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _”
中我把“你的IP地址 ”换成“202.99.16.4”时，它老说缺少语句.这是为什么？还有“你的数据库名称”是不是远程数据库的名称？
“你的IP地址”是不是远程机器的IP地址阿？实在要谢谢你：）

Answer 2

阿，程序改好了。
可是呢.....
运行后程序提示说：[ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序这又是怎么回事阿？我的代码是：Dim StrCon As String
StrCon = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=中国宏观经济数据;Data Source=202.99.16.4;" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
Dim AcSys  As New adodb.Connection
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With完全按照你写的那样。