PORQUE NO CONECTA CON LA DATA?? PLEASE

SPow
26 de Febrero del 2005
Hola amigo,tengo una duda ya que al ejecutar las
instrucciones para crear un txt (lo hace perfectamente)
resulta que al salir del sistema o del modulo y vuelvo a
ingresar al sistema u otro modulo me muestra un error q
no consigue el archivo de la BBDD y por ende tambien me
muestre el mensaje en los data control al no hallar la
Data la cual la tengo elaborada en Access. Es como que si
no lo localizara, cosa que me parece extraña ya que ese
código no lo he modificado. Entonces tengo que cerrar el
VB y al volverlo abrir y ejecutarlo me funciona bien.
Para generar el txt es que se me presenta esto.. Cual
puede ser el motivo? gracias de antemano.
Public WKS As Workspace
Public DATA As DAO.Database
Public CEOBJ As DAO.Recordset

Public Sub Abrir()
On Error GoTo 10
Set WKS = CreateWorkspace("", "admin", "", dbUseJet)
Set DATA = WKS.OpenDatabase(".CEDULACION.mdb",
False, False, ";PWD=EDCAR")
10
If Err.Number = 3024 Then
Varmsg1 = MsgBox("No es localizada la Base de
Datos... Gracias", vbCritical, "Atención")
Exit Sub
End If
End Sub


PARA CREAR TXT:
Dim RstA As Object
Dim NumeroArchivo As Long
CD.FileName = ""
CD.Filter = "Text File(*.txt)|*.txt|All File (*.*)
|*.*"
CD.DialogTitle = "Guardar Archivo de Texto"
CD.Flags = cdlOFNHideReadOnly
CD.ShowSave
s = CD.FileName
If s = "" Then Exit Sub
If Dir(s) <> "" Then
If MsgBox("El Archivo ya existe. Desea
borrarlo y crear uno nuevo?" & vbCrLf & _
"Continuar ??? ", vbYesNo +
vbQuestion, "confirm") = vbNo Then
Exit Sub
End If
End If
Set RstA = DATA.OpenRecordset("SELECT
nacionalidad,cedula1,priape,segape,prinom,segnom,obj1,fecn
ac FROM CEOBJ WHERE lote between #" & MKBfec1.Text & "#
AND #" & MKBfec2.Text & "# AND OBJ1 = " & TXTobj1 & " AND
CODDES = " & TXTcoddes & "")
If RstA.EOF = False Then 'hay registros
RstA.MoveLast
RstA.MoveFirst
NumeroArchivo = FreeFile
Open s For Output Shared As #NumeroArchivo
While RstA.EOF = False
Print #NumeroArchivo, Trim("" & RstA
("Nacionalidad")); Spc(1 - Len("" & RstA
("Nacionalidad"))); _
Trim("" & RstA("Cedula1")); Spc(8 - Len("" &
RstA("Cedula1"))); _
Trim("" & RstA("Priape")); Spc(16 - Len("" &
RstA("Priape"))); _
Trim("" & RstA("Segape")); Spc(15 - Len("" &
RstA("Segape"))); _
Trim("" & RstA("Prinom")); Spc(16 - Len("" &
RstA("Prinom"))); _
Trim("" & RstA("Segnom")); Spc(15 - Len("" &
RstA("Segnom"))); _
Trim("" & RstA("Obj1")); Spc(2 - Len("" & RstA
("Obj1"))); _
Trim("" & RstA("Fecnac")); Spc(8 - Len("" &
RstA("Fecnac")))
RstA.MoveNext
Wend
Close #NumeroArchivo ' Cierra el archivo.
MsgBox "Se ha creado el fichero perfectamente.
Ahora te muesto el resultado", vbExclamation, "AVISO"
RetVaL = Shell("notepad.exe " & s,
vbMaximizedFocus)
Else
MsgBox "No hay Registros en tu Tabla",
vbExclamation + vbOKOnly, "Almacén vacío"
End If
RstA.Close
Set RstA = Nothing
Exit Sub

OJO RUTINA PERFECTA PARA CREAR TXT A PARTIR DE UN UNA
INSTRUCCION SQL =)