Invalid proc call or argument : Urgent
Hi
My Project consisits of 3 layers prjAL,prjBL and prjDL. These 3 are implemented as DLL.
prjDL is taking care of DB connectivity.

When db server is stopeed it throws run time error :
Dl method raises err to BL. here err no is 10303.
Now BL throws it to AL for handling . But here it is coming as error number 5(invalid proc call or argument)

Code line in AL:
Set m_objBLT = CreateObject("prjBL.clsT")

Code line in BL where the err appears:
m_dalT.Intialize Provider=MSDASQL.1;Data Source=xx;User ID=xx;Pwd=xx;

Definition in DL:
Public Sub Intialize(ByVal ConnectionString As String)
On Error GoTo errHandler
Dim Errs1 As ADODB.Errors


If m_bInitialize = False Then

Set m_Conn = New Connection

With m_Conn
.ConnectionString = ConnectionString
.CursorLocation = adUseClient
.CommandTimeout = 0
.Open
End With

Set m_rsRecords = New Recordset
With m_rsRecords
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
End With
m_bInitialize = True
Else
Err.Raise STR_ERR_OBJ_INIT_FAIL, CLS_NAME, LoadResString(STR_ERR_OBJ_INIT_FAIL), , STR_ERR_OBJ_INIT_FAIL
End If
Exit Sub
errHandler:
Dim errLoop As Error
Set Errs1 = m_Conn.Errors
If Errs1.Count > 0 Then
For Each errLoop In Errs1
objErrInfoDgb.TraceMsg errLoop.SQLState & ": " & errLoop.Description
Next
SQLStateErrorHandler Errs1.Item(0).SQLState, Errs1.Item(0).Source
Else
Err.Raise Err.Number, Err.Source, Err.Description, , Err.HelpContext
End If
End Sub


Can anybody tell me the reason behind this? ANd how to handle it?

Thks
Vidhi