Выборка из базы полей с условием

Private Sub Кнопка20_Click()
 On Error GoTo Err_Кнопка20_Click
 
    Dim stDocName As String, napr As String
    Dim rst As DAO.Recordset
    Dim strSql As String
  
 
    stDocName = ChrW(1041) & ChrW(1072) & ChrW(1079) & ChrW(1072) & ChrW(32) & ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089)
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    napr = Forms![Form1].NApravlenie.Value
 
    If napr = "Выявление и подготовка лидеров" Then
        napr = "Выявление и подготовка лидеров волонтерского движения"
    ElseIf napr = "Транспорт" Then
        napr = "Специальная подготовка по направлению «Транспорт»"
    End If
    
    strSql = "SELECT Email FROM База Where napr"
    Set rst = CurrentDb.OpenRecordset(strSql)
  
    Do Until rst.EOF
    rst.Edit
    rst!oSend = True
    rst.Update
    rst.MoveNext
    Loop
 
Exit_Кнопка20_Click:
    Exit Sub
 
Err_Кнопка20_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка20_Click
    
End Sub

Set rst = CurrentDb.OpenRecordset(strSql)

    strSql = "SELECT Email FROM База Where napr"
    Set rst = CurrentDb.OpenRecordset(strSql)
  
    Do Until rst.EOF
    rst.Edit
    rst!oSend = True
    rst.Update
    rst.MoveNext
    Loop

    strSql = "UPDATE База SET Email = True Where Napravlenie = '" & napr & "';"
    CurrentProject.Connection.Execute strSql

Napravlenie = '" & napr & "';"

napr = Forms![Form1].NApravlenie.Value