Не выполняется запрос sql в vba exel

Формулировка задачи:

Dim com3 As String
com3 = " update ДанныеАвтомобилей set ДанныеАвтомобилей.Наличие='FALSE' where ДанныеАвтомобилей.Модель=' " & ListBox3.text & " '"
rs.Open com3, cn

Тип поля Наличие-Логический

Решение задачи: «Не выполняется запрос sql в vba exel»

textual
                            Листинг программы 
                        

                            Dim com3 As String
com3 = " update ДанныеАвтомобилей " _
& " set ДанныеАвтомобилей.Наличие=FALSE where ДанныеАвтомобилей.Модель='" & ListBox3.text & "'"
rs.Open com3, cn
                        