[Resolvido]Parâmentros insuficientes em Update usando Recordset

Boa tarde amigos..

Tenho num código que ao inserir fotos em uma tabela no Back And (Desvinculada) fala que
*** Parametros insuficientes. Eram Esperados 1

Esse codigo funcionava quando as tabelas eram vinculadas no Front.. estou tentando adptar para desvinculo...



Public Sub SalvarFoto()
Parametros_de_Inicializacao "SysPen.par"
Dim NomeBD
Dim StrPath
Dim Arq As String
Dim Sufixo As String
Dim Pos As String

Dim dbs As DAO.Database
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase(DirBancoDados & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
NomeBD = "Syspen_be.accdb"
StrPath = DirBancoDados & NomeBD


Arq = Dir(DirFotos & Me!ID, vbDirectory)
If Arq = "" Then
MkDir DirFotos & Me!ID
End If
Pos = InStr(Me!lbFoto, ".")
Sufixo = Mid(Me!lbFoto, Pos, Len(Me!lbFoto) - Pos + 1)
ArqFoto = DirFotos & Me!ID & "\VISIT_" & Me!IDVisitante & Sufixo
FileCopy Me!lbFoto, ArqFoto
Kill Me!lbFoto
Me!lbFoto = ArqFoto
dbs.Execute "update visitantes " & _
"set caminhofoto='" & ArqFoto & "' " & _
"where ID_Visitante=" & Me!ID & " and " & _
"id_Primary=" & Me!IDVisitante
Me!lstFotos.Requery

End Sub

Se puderem me ajudar fico grato

Olha o 3 em 1 ai Amigo Criquio


Me!lbFoto = ArqFoto
dbs.Execute "update visitantes " & _
"set caminhofoto='" & ArqFoto & "' " & _
"where ID_Visitante=" & Me!ID & " and " & _
"id_Primary=" & Me!IDVisitante
Me!lstFotos.Requery

Eu havia mudado o nome na tabela para não confundir a foto do Visitante com a do Detento

Me!lbFoto = ArqFoto
dbs.Execute "update visitantes " & _
"set caminhofotoVIS='" & ArqFoto & "' " & _
"where ID_Visitante=" & Me!ID & " and " & _
"id_Primary=" & Me!IDVisitante
Me!lstFotos.Requery

Obrigado