oOlApp = CreateObject("Outlook.Application") && Open Outlook oOlNS = oOlApp.GetNameSpace("MAPI") && Set name space oOlC = oOlNS.GetDefaultFolder(10) && 10 = Default Contacts Folder CREATE CURSOR emcontact (ctName M, ctAddress M) SELECT emcontact FOR i = 1 TO oOlC.Items.Count WAIT WIND "Record # "+ALLT(STR(i))+" of "+ALLT(STR(oOlC.Items.Count)) NOWAIT INSERT INTO emcontact (ctname, ctaddress) ; VALUES ; (oOlC.Items(i).email1address,; oOlC.Items(i).fullname) ENDFORI did have to answer a few dialog boxes first, between my AV software and the Hell Patch: are you telling it to allow access whenever it asks?