如何能在窗體開啟時自動執行?

Private Sub Command2_Click()
Me.frmPrgBar.Form.Visible = True
    Dim pbProgBar As IProgressBar
        Set pbProgBar = Me.frmPrgBar.Form
    With pbProgBar
        .Title = "0"
        .Text = "1000"
        '        .Min = 0
        '        .Max = 1000
        .Value = 0
        .Mode = False
        .Show
    End With
       Dim lCounter As Long
    Dim lPause As Long
    For lCounter = 0 To 100
                For lPause = 1 To 6000000
        Next
        pbProgBar.Value = lCounter
        pbProgBar.Text = "系統正在進行中，已完成   " & lCounter & " %  請賴心等候!"
    Next
        pbProgBar.Hide
    Set pbProgBar = Nothing
     DoCmd.OpenForm "登入介面"
End Sub