Hi, I am getting an error 'Object does not support this property or method' when I try to creat a new dataset. I am using DisplayDataMap to import data. Where am I going wrong?

Dim objmap As MapPointCtl.Map
Dim objLoc As MapPointCtl.location
Dim objpushpin As MapPointCtl.Pushpin
Dim objdataset As MapPointCtl.DataSet
Dim objRS As MapPointCtl.Recordset
Dim objPin As MapPoint.Pushpin

Dim objSymbol As MapPoint.Symbol
Dim objPsymbol As MapPointCtl.Symbol
Dim objRS1 As MapPointCtl.Recordset
Dim objRS2 As MapPointCtl.Recordset
Dim set1 As MapPoint.DataSet
'////////////////////////////////////////////////////////////////////////////

Set objdataset = objmap.DataSets(1)

Set objRS = objdataset.QueryAllRecords '???
Set objRS1 = objRS
Set objRS2 = objRS


Set set1 = objmap.DataSets.AddPushpinSet("Test")

Do While Not objRS2.EOF
location = objRS.Fields(1)
Set objLoc = objmap.FindResults(location).Item(1) 'Works
Set objPin = objmap.FindPushpin(objRS2.Fields(3))
Set objPin = objmap.AddPushpin(objLoc)
objPin.MoveTo (set1) 'THIS IS WHERE I GET THE ERROR 'Object does not support this method or propertry'

I will be very grateful if you are to help.

Thanks in advance