[Resolvido]Fechar sistema

como faço ao terminar o processo de progress bar ,feche o form principal com o comando quit

Após o código que executa o progress bar

DoCmd.Close acForm, "frmPrincipal"

Você quer dizer comando Close, não? O Quit fecha o aplicativo. O Close fecha o objeto.

Exactamente, Como diz o Criquio o Quit fecha um aplicativo e o comando close o form. Procure no repositório de exemplos, exemplos ou um exemplo que eu tenho lá com progress bar.

Este é o parte do código que uso.. observe a colocação do comanfdo que pretente...

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
Call AccessTransparente(0)
Do Until L >= lbarlnth
Call RunProgressBar(L)
L = L + Steplth
Pause 0.01
Loop

Pause 1
DoCmd.Close acForm, Me.Name
DoCmd.Close acForm, "frmPrincipal"
Exit_Form_Timer:
Exit Sub

Err_Form_Timer:
MsgBox err.Description
Resume Exit_Form_Timer

End Sub

Obrigado a todos eu quero é realmente e o comando quit e fecha o sistema

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
Call AccessTransparente(0)
Do Until L >= lbarlnth
Call RunProgressBar(L)
L = L + Steplth
Pause 0.01
Loop

Pause 1
DoCmd.Close acForm, Me.Name
DoCmd.Quit
Exit_Form_Timer:
Exit Sub

Err_Form_Timer:
MsgBox err.Description
Resume Exit_Form_Timer

End Sub

Resolvido.