Exempel COM styrd import

    Dim objImp As Object

    Set objImp = CreateObject("ImpADO.Application")

    objImp.FlagAllSeries False

    If Not objImp.FlagLoadSeries("AdoTest") Then MsgBox ("AdoTest serien saknas")

    If Not objImp.FlagObsSeries("Stockholm") Then MsgBox ("Stockholm Obs saknas")

    If Not objImp.FlagWFSeries("Örebro") Then MsgBox ("Örebro väderprognos saknas")

    objImp.StartImpTime = #1/1/2006#

    objImp.EndImpTime = #1/30/2006#

    objImp.Execute