Looking For Assitance With Coding Help

I have the following code that will import OLE objects into access, and it works quite well...but, how do I get it to check to see if a reocrd already exists and not to duplicate a reocrd? I am not a programmer, I have a couple of ideals but I don't know where to start. Any help would be appreciated.


If I were to put a new file into the folder, I would like the code to only import the new file and all files again. Which currently it will just create new reocrds for the existing document. I hope I have explained this... Any help would be appreciated. Thanks. vb Code: Original - vb Code Private Sub cmdLoadOLE_Click() Dim MyFolder As String Dim MyExt As String Dim MyPath As String Dim MyFile As String Dim strCriteria As String MyFolder = Me!SearchFolder ' Get the search path. MyPath = MyFolder & "" & "*." & [SearchExtension] ' Get the first file in the path containing the file extension. MyFile = Dir(MyPath, vbNormal) Do While Len(MyFile) <> 0 [OLEpath] = MyFolder & "" & MyFile [OLEFile].Class = [OLEClass] [OLEFile].OLETypeAllowed = acOLEEmbedded [OLEFile].SourceDoc = [OLEpath] [OLEFile].Action = acOLECreateEmbed ' Check for next OLE file in the folder. MyFile = Dir DoCmd.RunCommand acCmdRecordsGoToNew LoopEnd Sub Private Sub cmdLoadOLE_Click()       Dim MyFolder As String       Dim MyExt As String       Dim MyPath As String       Dim MyFile As String       Dim strCriteria As String                MyFolder = Me!SearchFolder       ' Get the search path.       MyPath = MyFolder & "" & "*." & [SearchExtension]       ' Get the first file in the path containing the file extension.       MyFile = Dir(MyPath, vbNormal)       Do While Len(MyFile) <> 0          [OLEpath] = MyFolder & "" & MyFile          [OLEFile].Class = [OLEClass]          [OLEFile].OLETypeAllowed = acOLEEmbedded          [OLEFile].SourceDoc = [OLEpath]          [OLEFile].Action = acOLECreateEmbed          ' Check for next OLE file in the folder.          MyFile = Dir          DoCmd.RunCommand acCmdRecordsGoToNew       Loop End Sub