Visual Basic Forum for Visual Basic Programmers VB

[ourspt]

Hi All,

I am finding a typical problem while running my Visual Basic source code.

My code was as below:

**************************************************************************************************************************************************
Public Function GetConnection(ByVal strDBAccessString As String, ByVal blnReadOnly As Boolean) As ADODB.Connection

Dim conDb As ADODB.Connection

Set conDb = New ADODB.Connection
With conDb
.ConnectionString = modDBAccess.GetConnectionString(strDBAccessString, False)
.CursorLocation = adUseClient
.ConnectionTimeout = 30
.CommandTimeout = 300
If blnReadOnly Then
.Mode = adModeRead
Else
.Mode = adModeReadWrite
End If
.Open
End With

Set GetConnection = conDb

End Function
*************************************************************************************************************************************************

Now, While i am working with the development environment having Windows XP(connecting to SQL 2000 installed in Windows OS 2000)

I am getting the following runtime error at the line (.Mode = adModeReadWrite)

Run-time error: '-2147168246 (8004d00a)'
New transaction cannot enlist in the specified transaction coordinator.

But while i am working with different development environment having OS 2000 Professional (connecting to SQL 2000 installed in Windows OS 2003), the source code is simply hanging at the same line (.Mode = adModeReadWrite).

Please help me in this regard, how to proceed further.

Thanks in Advance
Ourspt