imgedit did not display image after scanning

[pistolpinoy]

hi there,

my scanning application seems not performing the following action per below source code

*************
With IMGEDIT1
.Image = IMGSCAN1.Image
.Display
.SaveAs "e:\" & DOC1 & ".img", TIFF
End With
Me.Caption = "image - " & IMGEDIT1.Image & ""
**************
Full code listed below

************
Private Sub Command2_Click()
acct = Forms![frmscan]![1brnsub]![acctno]
doc = Forms![frmscan]![1brnsub]![docucode]
SSQL = "SELECT SVCOUNB.COUNTERB FROM SVCOUNB WHERE (((SVCOUNB.DOCUCODE)='" & doc & "'));"
Debug.Print SSQL
Set DBS = CurrentDb
Set RST = DBS.OpenRecordset(SSQL, dbOpenDynaset)
RST.MoveFirst
DOC1 = RST.Fields("COUNTERB")
On Error GoTo scanerr
If IMGSCAN1.ScannerAvailable = True Then
IMGSCAN1.OpenScanner
IMGSCAN1.StartScan

With IMGSCAN1
.OpenScanner
.StartScan
End With
IMGSCAN1.CloseScanner

With IMGEDIT1
.Image = IMGSCAN1.Image
.Display
.SaveAs "e:\" & DOC1 & ".img", TIFF
End With
Me.Caption = "image - " & IMGEDIT1.Image & ""

Else
MsgBox "Scanner not available!", vbExclamation, "Error!"
End If

scanerr:
If Err.Number = 1002 Then
Exit Sub
Else
MsgBox "Encountered error number " & Err.Number
Exit Sub
End If

End Sub
********

Needs help! Thanks