DisconnectedCon text was detected

[mr_doles]

I am trying to match users from one database with users in AD to get
an e-mail address. The program works but right before it exits I get
the following message.

DisconnectedCon text was detected
Message: Context 0x1a04b0' is disconnected. Releasing the interfaces
from the current context (context 0x1a0340).This may cause corruption
or data loss. To avoid this problem, please ensure that all contexts/
apartments stay alive until the application is completely done with
the RuntimeCallable Wrappers that represent COM components that
liveinside them.

I have read Microsoft's description of what this error means (http://
msdn2.microsoft .com/en-us/library/2c1czate.aspx) but I am not an
experienced programmer and have no clue what "transition into a
disconnected apartment" means.

It definitely has to do with the function as I have striped everything
out and just run this in main:
For x As Integer = 1 To 200
Email = GetUserInfo("Te st User", "mail")
Console.WriteLi ne(x)
Next

Anything less then ~180 and I don't get the message. The Function was
copied (shame on me) from google. I added the Finally clause to see
if disposing would help. The directory path has been changed to
protect the innocent.
Public Function GetUserInfo(ByV al inSAM As String, ByVal inType As
String) As String

Dim sPath As String = "LDAP://xxx/DC=xxx,DC=com"
Dim SamAccount As String = Right(inSAM, Len(inSAM) -
InStr(inSAM, "\"))
Dim myDirectory As New DirectoryEntry( sPath)
Dim mySearcher As New DirectorySearch er(myDirectory)
Dim mySearchResultC oll As SearchResultCol lection
Dim mySearchResult As SearchResult
Dim myResultPropCol l As ResultPropertyC ollection
Dim myResultPropVal ueColl As ResultPropertyV alueCollection

Try
'Build LDAP query
mySearcher.Filt er = ("(&(objectClas s=user)(name=" &
SamAccount & "))")
mySearchResultC oll = mySearcher.Find All()
'I expect only one user from search result
Select Case mySearchResultC oll.Count
Case 0
Return "Not Found"
Exit Function
Case Is 1
Return "Multiple"
Exit Function
End Select

'Get the search result from the collection
mySearchResult = mySearchResultC oll.Item(0)

'Get the Properites, they contain the usefull info
myResultPropCol l = mySearchResult. Properties

'displayname, mail
'Retrieve from the properties collection the display name
and email of the user
myResultPropVal ueColl = myResultPropCol l.Item(inType)
Return CStr(myResultPr opValueColl.Ite m(0))

Catch ex As System.Exceptio n
Return "Null"
'do some error return here.

Finally
mySearcher.Disp ose()
myDirectory.Dis pose()
End Try

End Function

What am I doing wrong here?

[mr_doles]

No one has any suggestions on this?

[mr_doles]

Oh come on...there is not one person out there that has a suggestion
on what could be causing this?