Filtre d'un formulaire Access

Private Sub Commande16_Click()
'On Error GoTo Err_Commande16_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sql As String
    Set db = CurrentDb
    sql = "select idprojet.projet,jalon from projet,jalon where projet.idprojet=jalon.idprojet and idprojet=""" & nom_chef1.Value & """"
    Set rst = db.OpenRecordset(sql)
    stDocName = "Jalon"
    DoCmd.OpenForm stDocName, , , "[Idprojet] = '" & sql & "'", , , nom_chef1.Value
'Exit_Commande16_Click:
'    Exit Sub
'
'Err_Commande16_Click:
'    MsgBox Err.Description
'    Resume Exit_Commande16_Click
'
End Sub