[Resolvido]Erro 2220 em código

Olá amigos,
Com a ajuda de membros e tópicos aqui do fórum criei o seguinte código:

Private Sub Comando3_Click()

DoCmd.OpenForm "frmPrincipal", acDesign, , , , acHidden

If Forms(Forms().Count - 1).Name = "frmPrincipal" Then

   Forms(Forms().Count - 1).Picture = Me.ListaImgs.Column(0)
   DoCmd.Close acForm, "frmprincipal", acSaveYes
End If
DoCmd.OpenForm "frmPrincipal", acNormal
Forms("frmPrincipal").Imagem86.Picture = Me.ListaImgs.Column(0)
DoCmd.Close acForm, "frmMudaImagem", acSaveYes
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim strDiretorio, strPasta, strFicheiros
strDiretorio = CurrentProject.Path & "\Imagens\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(strDiretorio)
Set strFicheiros = strPasta.Files
Me.ListaImgs.RowSourceType = "Value List"
For Each File In strFicheiros
Me.ListaImgs.AddItem (File.Name)
Next
End Sub

Private Sub ListaImgs_Click()
Me.Preview.Picture = Me.ListaImgs.Column(0)
End Sub

Mas, sempre que eu fecho o access e abro novamente o sistema retorna o seguinte erro:

Erro em tempo de execução '2220':
O Sistema de Vendas não pode localizar o arquivo "....."

Na seguinte linha:

Private Sub ListaImgs_Click()
Me.Preview.Picture = Me.ListaImgs.Column(0)

Alguem pode me ajudar a resolver isto?

Rodrigo

Me.Preview.Picture = Me.ListaImgs.Column(0)

O que tem na coluna(0) da ListaImgs?

Se for a mesma lista que eu tinha feito naquele exemplo,

deve referenciar a coluna onde tem o caminho da figura (c:/pasta/imagem.bmp)

É por isso que o Access não consegue encontrar a imagem.

Veja bem o código daquele exemplo.

Noob

Obrigado Noob,
Mas ja tinha resolvido o problema.