Public Function isname(namfld As String) As Boolean
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tabl")
isname = False
For i = 0 To rst.Fields.Count - 1
    If rst.Fields(i).Name = namfld Then isname = True: Exit Function
Next i
End Function