توضیح کد اسکنر

[LEILAFATHI]

سلام
دوستان فقط اون قسمت هایی که مشخص شده را بگین کافیه

Dim FL As String

Dim Pic_N As String

FL = App.Path & "\temp.bmp"

Pic_N = InputBox("Picture Name:")

On Error GoTo BadScan

Screen.MousePointer = 11

s% = TWAIN_AcquireToFilename(Me.hWnd, FL)

If s% = 0 Then

Picture1.Picture = LoadPicture(FL)

Else

    GoTo BadScan

End If

Screen.MousePointer = 0

Open FL For Binary As #1

ReDim bPic(FileLen(FL))

Get #1, , bPic

Close #1

With Adodc1

    .Recordset.AddNew

    .Recordset.Fields("Name") = Pic_N

    .Recordset.Fields("Picture").AppendChunk (bPic)

    .Recordset.Update

End With

Screen.MousePointer = 0

MsgBox "ÐÎíÑå ÊÕæíÑ ÏÑ ÈÇä˜ ÇØáÇÚÇÊí ÇäÌÇã ÔÏ"

Kill FL

Exit Sub

BadScan:

MsgBox "ÚãáíÇÊ ÇÓ˜ä ÈÇ ÇíÑÇÏ ãæÇÌå ÔÏ", vbInformation, "íÛÇã ÓíÓÊã"

Screen.MousePointer = 0