Ayuda con los problemas en mi base de datos

Hola maestro...
Lo lamento pero perdí tu cuenta de correo y me es imposible enviarte la base de datos... No obstante te paso el código que te permitirá evitar ese error...
SiguienteDocumento:
Close #nFile
If blnMover = True Then
If Dir(strPathDocuments & "\" & strDocument) <> "" Then
If MsgBox("El archivo " & strDocument & " ya existe." & vbCrLf & _
"¿Desea reemplazarlo?", vbCritical + vbYesNo, "Copiar Archivos") = vbNo Then
blnMover = False
Else
Kill strPathDocuments & "\" & strDocument
End If
End If
End If
If blnMover = True Then
Name strPathActual & "\" & strDocument As strPathDocuments & "\" & strDocument
blnMover = False
End If
strDocument = Dir
Loop
MsgBox "Se han obtenido " & nDocuments & " documentos nuevos.", vbInformation
LeerArchivosNuevos_Exit:
Abre el módulo1 de la base de datos... Arriba a mano derecha en el desplegable selecciona la opción LeerArchivosNuevos..
... Sigo en la siguiente pregunta..