Use CDO instead of MAPI to get outlook namespace in VB6

Hi

I am using MAPI to work with Outlook oprations in VB6,now i want to convert it into CDO to get namespace of Outlook.

Set olApp = GetObject(, "Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")

How can i chage it into CDO?

Please give me a solution.