Почему пишет ошибку Type mismatch - VB

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

Здравствуйте, скажите пожалуйста, почему пишет ошибку Type mismatch, где она?

Dim i As RecordOpenOptionsEnum
i = InputBox("Введите ISBN, Проверка ввода данных")
If i = "SELECT Книги.isbn FROM Книги WHERE (((Книги.isbn)=[i]))" Then
MsgBox "Эта книга есть в базе"
Else
MsgBox "нет такой книги"
Exit Sub
End If
 
End Sub

Заранее спасибо

Решение задачи: «Почему пишет ошибку Type mismatch»

textual
                            Листинг программы 
                        
                            Set rst = CurrentDb.OpenRecordset("SELECT Книги.заглавие_издания FROM Книги WHERE Книги.isbn = " & [i])