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

[wdwd05]

Conn连接的是远程服务器

执行到 Conn.BeginTrans 提示“未设置对象变量或With Block变量”

但是连接本机SQLSERVER数据库没有问题

但是用查询分析器连接远程服务器，执行Begin Tran 也可以正常执行。不提示错误

我用的VB，望高手给予指点！

[CathySun118]

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

[leo_lesley]

是不是没有连接上远程的服务器啊~~~~~

[wdwd05]

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

[wdwd05]

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


这是连接的代码，我保证肯定连接上服务器