Maximere via en kommandoknap

Jeg har følgende kommandoknap der åbner en formular! Hvordan lægger jeg en maximer form ular ind i en og samme kode?

Private Sub OK_Click()
On Error GoTo Err_OK_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "DataFra exce - datol"
    DoCmd.OpenForm "DataFra exce - datol", acFormDS, "", "", , acNormal
DoCmd.Close acForm, Me.Name

Exit_OK_Click:
    Exit Sub

Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click
   
End Sub