COMBOBOX O QUE HA DE ERRADO???

  'Trata os combos das subclasses
    
    Select Case cboSubClasse(Index).Index
        
    Case 0
        
        
        If cboClasse(1).Text <> "" Then ' verifica combo da classe
        
        cboSubClasse(0).Clear
        
        Set Rs(1) = DB.OpenRecordset("SELECT subclasses.*, classes.* FROM subclasses, classes, subclasses INNER JOIN classes ON subclasses.id_classe_es = classes.id_classe WHERE classes.descricao_classe = '" & cboClasse(1).Text & "' ORDER BY descricao_subclasse", dbOpenDynaset)
        
        Rs(1).MoveFirst
        
        Do Until Rs(1).EOF
            cboSubClasse(0).AddItem Rs(1)("descricao_subclasse")
            Rs(1).MoveNext
        Loop
        Label1(1).Caption = "SubClasse : " & Rs(1).RecordCount & " filtrados"
        Rs(1).Close
        
    Else
        MsgBox ("Escolha primeiro a classe!")
    End If
        
Case 1
    
    If cboClasse(2).Text <> "" Then
        
        cboSubClasse(1).Clear
        
        Set Rs(1) = DB.OpenRecordset("SELECT subclasses.*, classes.* FROM subclasses, classes, subclasses INNER JOIN classes ON subclasses.id_classe_es = classes.id_classe WHERE classes.descricao_classe = '" & cboClasse(2).Text & "' ORDER BY descricao_subclasse", dbOpenDynaset)
        
        Rs(1).MoveFirst
        
        Do Until Rs(1).EOF
            cboSubClasse(1).AddItem Rs(1)("descricao_subclasse")
            Rs(1).MoveNext
        Loop
        Label1(4).Caption = "SubClasse : " & Rs(1).RecordCount & " filtrados"
        Rs(1).Close
        
    Else
        MsgBox ("Escolha primeiro a classe!")
    End If
    
Case 2
    
    If cboClasse(3).Text <> "" Then
        
        cboSubClasse(2).Clear
        
        Set Rs(1) = DB.OpenRecordset("SELECT subclasses.*, classes.* FROM subclasses, classes, subclasses INNER JOIN classes ON subclasses.id_classe_es = classes.id_classe WHERE classes.descricao_classe = '" & cboClasse(3).Text & "' ORDER BY descricao_subclasse", dbOpenDynaset)
        
        Rs(1).MoveFirst
        
        Do Until Rs(1).EOF
            cboSubClasse(2).AddItem Rs(1)("descricao_subclasse")
            Rs(1).MoveNext
        Loop
        Label1(7).Caption = "SubClasse : " & Rs(1).RecordCount & " filtrados"
        Rs(1).Close
    Else
        MsgBox ("Escolha primeiro a classe!")
    End If
    
    
End Select 

          If cboSubClasse(1).Text <> "" Then
            
            cboTipo(0).Clear
            
          ERRO -->(parametros insulficientes)  Set Rs(2) = DB.OpenRecordset("SELECT tipos.*, subclasses.* FROM tipos, subclasses, tipos INNER JOIN subclasses ON tipos.id_subclasse_es = subclasses.id_subclasse WHERE subclasses.descricao_subclasse = '" & cboSubClasse(1).Text & "' ORDER BY descricao_tipo", dbOpenDynaset)
            
            Rs(2).MoveFirst
            
            Do Until Rs(2).EOF
                cboTipo(0).AddItem Rs(2)("descricao_tipo")
                Rs(2).MoveNext
            Loop
            Label1(5).Caption = "Tipo : " & Rs(2).RecordCount & " filtrados"
            Rs(2).Close
        Else
            MsgBox ("Escolha primeiro a SubClasse!")
        End If