Hi,

I have the following function in my Main Module (VB) .


Public Function Insert_LogFile(ByRef P_LogType As String, ByRef P_JrlType As String, _
ByRef p_TrnNo As String, ByRef P_LogDescription As String, _
ByRef P_LogEssential As Integer)
'This Function will create a Entry in Log Table and return the LogId of the Newly created Row
'Declaring the INPUT Parameters for the Command Object
Dim parCompanyID As Parameter, parFinyear As Parameter
Dim parLogType As Parameter, parLogDate As Parameter
Dim parLogTime As Parameter, parLogMenuName As Parameter
Dim parJrlType As Parameter, parTrnNo As Parameter
Dim parLogDesc As Parameter, parLogIP As Parameter
Dim parUserID As Parameter, parLogEssential As Parameter
'Declaring the OUTPUT parameter
Dim parLogID As Parameter
'Declaring the Command Object
Dim cmdlog As New ADODB.Command
Dim rstLog As New ADODB.Recordset
'Initializing the Command Object
Set cmdlog.ActiveConnection = g_m_cnnIMS
cmdlog.CommandText = "dbo.Sp_LogFile"
cmdlog.CommandType = adCmdStoredProc
' Setting up the Parameters
Set parCompanyID = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parCompanyID
parCompanyID.Value = g_m_openCompID
Set parFinyear = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parFinyear
parFinyear.Value = g_m_finYear
Set parLogType = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogType
parLogType.Value = P_LogType
Set parLogDate = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogDate
parLogDate.Value = Date
Set parLogTime = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogTime
parLogTime.Value = Time
Set parLogMenuName = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogMenuName
parLogMenuName.Value = g_m_LogMenuName
Set parJrlType = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parJrlType
parJrlType.Value = P_JrlType
Set parTrnNo = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parTrnNo
parTrnNo.Value = p_TrnNo
Set parLogDesc = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogDesc
parLogDesc.Value = P_LogDescription
Set parLogIP = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogIP
parLogIP.Value = g_m_CompNameIP
Set parUserID = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parUserID
parUserID.Value = g_m_UserID
Set parLogEssential = cmdlog.CreateParameter("Input", adVarChar, adParamInput)
cmdlog.Parameters.Append parLogEssential
parLogEssential.Value = P_LogEssential
Set parLogID = cmdlog.CreateParameter("Output", adVarChar, adParamOutput)
cmdlog.Parameters.Append parLogID
Set rstLog = cmdlog.Execute
Debug.Print cmdlog(13)
End Function


I am getting the the Error Called "Class does not support Automation or does not support expected interface" while executing the Line

"Set cmdlog.ActiveConnection = g_m_cnnIMS"


Why this Error Comes ?

Pls Help ..

Suresh...