Function DeshabilitaVentana()
  On Error GoTo ErrFuncion
   Dim prop As Property
   Const conPropNotFound = 3270
   CurrentDb.Properties("StartUpShowDbWindow") = False
Exit Function
ErrFuncion:
   If Err = conPropNotFound Then
    Set prop = CurrentDb.CreateProperty("StartUpShowDbWindow", _
        dbBoolean, False)
        CurrentDb.Properties.Append prop
        Resume Next
    Else
        MsgBox  Err.Description, vbInformation + vbOKOnly, "A V I S O"
        Exit Function
    End If

End Function