VB6 найти проблему с помощью SQL (MS Access 2007)

Question

У меня была программа, которая найдет запись из базы данных (MS Access 2007), где у меня возникла ошибка: Синтаксическая ошибка в выражении запроса 'firstname like% 1%'

это мой код:

 Dim find As String

 find = txtfind.Text

 If txtfind.Text <> "" Then
    Set rs = db.OpenRecordset("SELECT * from records WHERE firstname like '*'" & find & "'*")

    If rs.EOF = True Then
        MsgBox "No Record Found!", vbCritical + vbOKOnly, "Error"
    Else
        Text1 = rs(0)
        Text2 = rs(1)
        Text3 = rs(2)
        Text4 = rs(3)
    End If

    If Not rs Is Nothing Then
       Set rs = Nothing
    Else
       rs.Close
    End If

End If

Answer 1

Подстановочный знак для Access - это * не%.

Пожалуйста, попробуйте следующее:

Set rs = db.OpenRecordset("SELECT * from records WHERE firstname like '*" & find & "*'")

Кроме того, исчерпывающий ресурс для использования подстановочных символов в доступе:

10 советов по использованию подстановочных знаков в Microsoft Access

Надеюсь, это поможет!