连接远程SQLSERVER服务器，开启事务报错！！！

Question

Conn连接的是远程服务器执行到 Conn.BeginTrans 提示“未设置对象变量或With Block变量”但是连接本机SQLSERVER数据库没有问题但是用查询分析器连接远程服务器，执行Begin Tran 也可以正常执行。不提示错误我用的VB，望高手给予指点！

Answer 1

未设置对象变量或With Block变量。这句话明显是vb的错误，是不是conn没有连接

Answer 2

不可能没连接上，去掉CONN。BEGINTRANS 执行没有任何问题

Answer 3

Connstr = "provider=sqloledb;data source=218.224.XXX.XXX,1433;User ID=CC;pwd=1234;Initial Catalog=aa"Public Function fun_ConnJoin(aConn As ADODB.Connection, Connstr As String, CommandTimeOut As Integer) As String
  On Error GoTo Err_Conn
  If aConn Is Nothing Then Set aConn = Nothing
  Set aConn = New ADODB.Connection
  aConn.ConnectionString = Connstr
  aConn.CursorLocation = adUseClient
  aConn.CommandTimeOut = CommandTimeOut
  aConn.Open
  fun_ConnJoin = "OK"
  Exit Function
Err_Conn:
  fun_ConnJoin = Err.Description
  '释放连接
  Call sub_LogoutConnection(aConn)
End Function
这是连接的代码，我保证肯定连接上服务器