Eu preciso fazer um loop a qual me traga uma imagem que esta dentro de uma pasta c: e salvar no banco Access

tem como? alguem pode ajudar!!!

e no mesmo tempo que eu salvar a imagem no banco access o loop me traz a proxima imagem que esta no c:

 

 

Private Sub cmdSalvar_Click()
    Dim objCaminho As Object
    Dim objArquivo As Object
   
    Set objCaminho = CreateObject("scripting.filesystemobject")
    Set objArquivo = objCaminho.GetFolder(App.Path)
   
    For Each file In objArquivo.Files
       
        If UCase(Right(file.Name, 4)) = ".BMP" Then
            'GRAVA....
            MsgBox "GRAVADO"
        End If
       
    Next

End Sub

Desculpe.

 

 Set objArquivo = objCaminho.GetFolder("C:")