Ограничения по вводу данных для существующих моделей

Option Explicit
 
Private Type typeAutoBus
    ID As Integer
    Model As String
    Seats As Integer
    Number As String
End Type
 
Const N As Integer = 20
Dim AutoBus(1 To N) As typeAutoBus '
 
Private Sub Command1_Click()
    Dim i As Integer
    
    AutoBus(1).Model = "Citroen_Jumper":   AutoBus(1).Number = "4324"
    AutoBus(2).Model = "Mercedes_Classic": AutoBus(2).Number = "442"
    AutoBus(3).Model = "Peugeot_Boxer":    AutoBus(3).Number = "123"
    AutoBus(4).Model = "Citroen_Jumper":   AutoBus(4).Number = "3434"
    
    For i = 1 To N
         AutoBus(i).ID = i
         Select Case AutoBus(i).Model
                Case "Citroen_Jumper":    AutoBus(i).Seats = 70
                Case "Mercedes_Classic":  AutoBus(i).Seats = 100
                Case "Peugeot_Boxer":     AutoBus(i).Seats = 90
         End Select
    Next i
 
    MsgBox AutoBus(4).Seats
End Sub

 Dim A As Recordset
        Dim i, m, c As Integer
        
        Set A = CurrentDb.OpenRecordset("Таблица1")
        m = Forms![1].Controls![модель автобуса].Value
        c = Forms![1].Controls![число мест].Value
                      
         For i = 1 To A.RecordCount
                                
             If (m = Trim(A.Fields(2)) And (Trim(A.Fields(3)) <> c)) Then
                   MsgBox ("Модель данного вида уже есть с вместимостью:   " & A.Fields(3))
                    Me.Undo
            
              Exit For
             End If
                                  
            A.MoveNext
            
        Next i

 If (m = Trim(A.Fields(2)) And (Trim(A.Fields(3)) = c))