Option Compare Database
Const tblname = "test"
Const fldName = "findWhat"
Function test(value As String) As Boolean
 Dim strSql As String
 Dim rst As DAO.Recordset
  strSql = "select " & tblname & ".* from " & tblname & " where " & _
  fldName & " = '" & value & "'"
  'Debug.Print strSql
  Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
  If rst.EOF = True Then
   test = False
   Else
    test = True
  End If
  rst.Close
  Set rst = Nothing
  'Debug.Print test
  
End Function
Function test1(value As String) As Boolean
Dim rst As DAO.Recordset
Dim strCriteria
Set rst = CurrentDb.OpenRecordset(tblname, dbOpenDynaset)
strCriteria = fldName & "='" & value & "'"
  rst.FindFirst (strCriteria)
  If rst.NoMatch = False Then
     test1 = True
        Else
     test1 = False
  End If
  
End Function
Sub Main()
Debug.Print test("Прог")
Debug.Print test1("Прог")

If test("Прог") Then
 Debug.Print "Введи чего-нито получше"
 Else
 Debug.Print "А вот это я схаваю"
End If

Debug.Print test1("ghjkgh")
Debug.Print test1("ghjkgh")

If test("ghjkgh") Then
 Debug.Print "Введи чего-нито получше"
 Else
 Debug.Print "А вот это я схаваю"
End If

End Sub

call main()
True
True
Введи чего-нито получше
False
False
А вот это я схаваю