Digitalizar diretamente no access

Olá pessoal,

Eu gostaria de que o meu sistema em access digitalizasse imagens diretamente:
Encontrei algumas opções:
Mas não consegui aplicar.

http://orkut.google.com/c124479-t7c934e99f0cff9a6.html

Código:

O meu ponto de partida, no seu lugar, seria, a partir do VBA do Access, abrir um documento do Word (por automação), usar o recurso de inserir imagem do scanner, salvar o documento com a imagem scanneada (o documento pode ter o nome incluindo o número da ordem serviço) e depois salvar o nome deste arquivo no seu registro do Access.

Não testei este código pois, como eu disse, não estou com scanner aqui para testar.

Function ImagemScanner(strFilePath As String) As Boolean
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim blnHasPicture As Boolean
Dim shp As Word.InlineShape

On Error GoTo ErrHandler

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add
wdApp.WordBasic.InsertImagerScan 'este comando abrirá o assistente
'de scanner, em que o usuário deverá clicar em Inserir
wdDoc.SaveAs strFilePath

'Verifica se o documento tem ao menos uma figura
For Each shp In wdDoc.InlineShapes
If shp.Type = 3 Then 'wdInlineShapePicture
blnHasPicture = True
End If
Next shp

ImagemScanner = blnHasPicture

ExitHere:
Exit Function

ErrHandler:
ImagemScanner = False
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "ImagemScanner"
Resume ExitHere

End Function

Outro seria aqui:
http://www.macoratti.net/vb_scan.htm

mas mesmo assim não consegui adaptar no meu código.

Alguem tem um exemplo ou ja viu alguma coisa do tipo?

Abs.