[Resolvido]Falta de referencia...

Este meu codigo.. funcionava.. mas desmarcei uma referencia (nao me lembro a qual) e ele nao funciona na linha em vermelho

Private Sub Comando0_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Fotos_Detentos")
Do While Not rst.EOF
rst.Edit
If EstaVazio(rst!CaminhoFotoRosto) = False Then
rst!CaminhoFotoRosto = "c" & Right(rst!CaminhoFotoRosto, Len(rst!CaminhoFotoRosto) - 1)
End If
If EstaVazio(rst!CaminhoPerfil1) = False Then
rst!CaminhoPerfil1 = "c" & Right(rst!CaminhoPerfil1, Len(rst!CaminhoPerfil1) - 1)
End If
If EstaVazio(rst!CaminhoPerfil2) = False Then
rst!CaminhoPerfil2 = "c" & Right(rst!CaminhoPerfil2, Len(rst!CaminhoPerfil2) - 1)
End If
If EstaVazio(rst!CaminhoPerfil3) = False Then
rst!CaminhoPerfil3 = "c" & Right(rst!CaminhoPerfil3, Len(rst!CaminhoPerfil3) - 1)
End If
If EstaVazio(rst!CaminhoPerfil4) = False Then
rst!CaminhoPerfil4 = "c" & Right(rst!CaminhoPerfil4, Len(rst!CaminhoPerfil4) - 1)
End If
rst.Update
rst.MoveNext
Loop
MsgBox "Terminei"
End Sub

o que fazer?

Veja se Microsoft ADO x está referenciada. x é o número da versão.

Fiz uma oraçào para o Santo Backup ...
ele me resolveu a questao..
heheheh

Mas jaja venho com uma pra voce Criquio.. Me aguarde...

Ate mais
Obrigado