Hi Lenin

Change this:
Public Function getItems(lCartID As Long) As ADODB.Recordset

To this:
Public Function getItems(ByVal lCartID As Long) As ADODB.Recordset

The reason is that you are passing a variant as a parameter, and if you use ByVal it will do the type conversion for you. If you don't use ByVal, it will not convert the variable, and you get a type mismatch

In case you care, it appears as though you are using a public connection variable in your VB component (you are calling a connect method, then you are getting the cart item). To properly utilize connection pooling, you should create the connection, do your stuff, then release the connection all in one method call.

enjoy

Tom