Code help for scanning.

Dears
This is what my code looks like

Private Sub cmdScan_Click()
 
  Dim objScan As ImgScan
  Set objScan = Me!ImgScan1.Object
  With objScan
    .DestImageControl = "ImgEdit1"  'Tell it which image to control
    .FileType = BMP_Bitmap 'Tell it what file type to use
    .ScanTo = DisplayAndFile 'Scan to the screen and the file
    .Image = "C:\Documents and Settings\Asim\My Documents\My Pictures\acdp3.gif" 'Give a temporary file name
    .StartScan 'Open the twain scanner screen
  End With

End Sub

Private Sub ImgScan1_ScanDone()
'This event process after the scan is completed
 
  Dim objScan As ImgScan
  Set objScan = Me!ImgScan1.Object
  With objScan
    .CloseScanner
  End With
 
  With Me!OLEPicture
    .OLETypeAllowed = acOLEEmbedded 'Allow embedded OLE types
    .Class = "Paint.Picture" 'Insert the type of picture you want
    .SourceDoc = "C:\My Documents\TempImg.bmp" 'Tell the OLE control which picture to use
    .Action = acOLECreateEmbed 'Store the image in the database
  End With

'Delete the temporary file
  Kill "C:\My Documents\TempImg.bmp"
End Sub


I have used the chestysoft active-x. But when I run this code it gives me errors

I need help immediately as I have to put this proposal to work soon.

Thank You
Asim