RE:problema con unload me en XP
Con Unload Me lo único que haces es descargar de la memoria el formulario activo (el que tiene el foco). Para cerrar el programa, lo que te dice CSO.
Pero si quieres hacerlo correctamente, es decir, cerrar las bases de datos, descargar los formularios y salir del programa, coloca esto en el formulario principal:
Private Sub CierraBasesDatos()
Dim ws As Workspace, Db As Database, rs As Recordset
For Each ws In Workspaces
For Each Db In ws.Databases
For Each rs In Db.Recordsets
rs.Close
Set rs = Nothing
Next
Db.Close
Set Db = Nothing
Next
ws.Close
Set ws = Nothing
Next
CierraFormularios
End Sub
Private Sub CierraFormularios()
Dim frm As Integer
frm = Forms.count
Do While frm > 0
Unload Forms(frm - 1)
If frm = Forms.count Then End
frm = frm - 1
Loop
End
End Sub
Espero que te sirva. A mi sí que me ha valido.
Saludos
Pere