next problem

runtime error 429:
ActiveX component can't create object
i'm using this code:
Dim omap As MapPoint.Map
Set omap = GetObject(, "MapPoint.Application").ActiveMap
Dim oPPSet As MapPoint.DataSet
Dim oPin As MapPoint.Pushpin
Dim oDS As MapPoint.DataSets
Set oPin = omap.AddPushpin(omap.FindResults( _
txtKaart.Text)(1))
Set oDS = omap.DataSets
Set oPPSet = omap.DataSets.AddPushpinSet("Deliveries")
oPin.MoveTo oPPSet
it higlights the "set omap..." sentence
my mappoint control is ok, what's wrong?