Как сократить запрос о многих записях по разным полям

Function Func_Koeff(D As Variant, M As Variant) As Variant
 Dim F As Variant
 If Not IsNull(D) And Not IsNull(M) Then
  If Nz(D) < 3 And Nz(M) < 8 Then
   Select Case D
    Case 1
     F = Choose(M, 3, 4, 0, 0, 0)
    Case 2
     F = Choose(M, 2, 0, 5, 0, 0)
   Case 3
     F = Choose(M, 2, 1, 3, 2, 0)
    Case 4
     F = Choose(M, 3, 4, 5, 0, 1)
  End Select
  End If
 End If
 Func_Koeff = F
End Function

Option Compare Database
Option Explicit
 
Function Func_Koeff(D As Variant, M As Variant) As Variant
 Dim F As Variant
 If Not IsNull(D) And Not IsNull(M) Then
  If Nz(D) < 200 And Nz(M) < 8 Then
   Select Case D
    Case 1
     F = Choose(M, 3, 4, 0, 0, 0)
    Case 2
     F = Choose(M, 2, 0, 5, 0, 0)
   Case 3
     F = Choose(M, 2, 1, 3, 2, 0)
    Case 4
     F = Choose(M, 3, 4, 5, 0, 1)
 
 Function Func_Koeff2(D As Variant, M As Variant) As Variant
 Dim F As Variant
 If Not IsNull(D) And Not IsNull(M) Then
  If Nz(D) < 200 And Nz(M) < 8 Then
   Select Case D
    Case 1
     F = Choose(M, 1, 2, 3, 0, 0)
    Case 2
     F = Choose(M, 2, 1, 5, 4, 3)
   Case 3
     F = Choose(M, 4, 0, 1, 0, 5)
    Case 4
     F = Choose(M, 1, 3, 0, 5, 2)  
   End Select
  End If
 End If
 Func_Koeff = F
End Function