Hello, When I connect to Exchange server 2000 using the following procedure below, sometimes it is connecting smoothly without any problem but when load testing is done it is sometimes giving an error mesage as "Provider cannot be found. It may not be properly installed." at the statement "lrecEmailId.Open lstrMailBoxURL, , , , , lstrUserId, lstrPassword" in the procedure. Can you please help me out in finding a solution to this problem and tell me what is the mistake that I have done in the procedure below for checking the existance of the user. Please confirm the receipt of this mail and respond me immediately. And also, if you can give me the Maximum no.of concurrent users that an Exchange server can support and all the related configurations. I will be very happy Thanks ASRao Applabs(India) Email: asrao@xxxxxxxxxxxxxxxx, ''========================================================================== ========================= '' Name : CheckEmailId '' Description : To verify the login credentials of the user '' Author : BKK '' Inputs : user name, password, backend server name and domain '' Outputs : True/False '' Modified by : ASRao '' Modified Reason : Coding standards and validations '' ''========================================================================== ========================= Public Function CheckEmailId(ByVal lstrUserId As String, ByVal lstrPassword As String, _ ByVal lstrBackEndServerName As String, ByVal lstrDomainName As String) As Boolean '' Local variables Dim lstrEmailId As String '' To hold the lstrEmailId id Dim lrecEmailId As ADODB.Record '' To hold the record Dim lstrMailBoxURL As String '' To hold the mailbox URL '' Set Error handler '' On Error GoTo ErrHandler '' Create database objects Set lrecEmailId = CreateObject("ADODB.Record") lstrMailBoxURL = "http://"; & lstrBackEndServerName & "/exchange/" & lstrUserId '' Checking for the existance of the user lrecEmailId.Open lstrMailBoxURL, , , , , lstrUserId, lstrPassword '' returning the function value as 'True' if successfull CheckEmailId = True Exit Function ResumeHere: '' setting the record object to nothing If Not lrecEmailId Is Nothing Then Set lrecEmailId = Nothing End If Exit Function ErrHandler: '' calling the function to write the errors occured to a log file Call WriteIntoErrLogFile(Err.Number, Err.Description, "CheckEmailId") '' set the function return value as 'False' CheckEmailId = False '' continuing the execution by passing the control to ResumeHere label Resume ResumeHere End Function