ник: FORMAT
Ну таким макаром вам нужно повесить на форму все кнопки с русским алфавитом. После чего их останется только раскрасить в белые и черные цвета поочередно и назвать форму РОЯЛЕМ 
Попробуйте что-то вроде этого:
Dim rst1 As Object
Set rst1 = Me.Recordset
Dim strok1 As String
DIM strok2 as string
strok1 = Forms!Ваша_форма!.Поле_для_поиска.value
Do While Not rst1.EOF
strok2= Forms!Ваша_форма!Имя_поля_для_сравнения
If InStr(strok1, strok2) <> 0 Then выполняем к.л. действия
rst1.MoveNext
Loop