一小段vb代码,不知道是那出错了，给指点一下

Question

If SSTab2.Tab = 0 Then '语法题
                If Adodc1.Recordset.AbsolutePosition > 0 Then
                    If Adodc1.Recordset.AbsolutePosition > 1 Then
                        Adodc1.Recordset.MovePrevious
                    Else
                        Adodc1.Recordset.Move 0
                    End If
                End If
            '填空题
                ElseIf Adodc2.Recordset.AbsolutePosition > 0 Then
                    If Adodc2.Recordset.AbsolutePosition > 1 Then
                        Adodc2.Recordset.MovePrevious
                    Else
                        Adodc2.Recordset.Move 0
                    End If
                     '阅读题
                ElseIf Adodc3.Recordset.AbsolutePosition > 0 Then
                    If Adodc3.Recordset.AbsolutePosition > 1 Then
                        Adodc3.Recordset.MovePrevious
                    Else
                        Adodc3.Recordset.Move 0
                End If
                
                   '听力题
                ElseIf Adodc4.Recordset.AbsolutePosition > 0 Then
                    If Adodc4.Recordset.AbsolutePosition > 1 Then
                        Adodc4.Recordset.MovePrevious
                    Else
                        Adodc4.Recordset.Move 0
                    End If
               
                 End If

Answer 1

    If SSTab2.Tab = 0 Then '语法题
         If Adodc1.Recordset.AbsolutePosition > 0 Then
            If Adodc1.Recordset.AbsolutePosition > 1 Then
                Adodc1.Recordset.MovePrevious
            Else
                Adodc1.Recordset.Move 0
            End If
        'End If
            '填空题
        ElseIf Adodc2.Recordset.AbsolutePosition > 0 Then
                If Adodc2.Recordset.AbsolutePosition > 1 Then
                    Adodc2.Recordset.MovePrevious
                Else
                    Adodc2.Recordset.Move 0
                End If
                    '阅读题
        ElseIf Adodc3.Recordset.AbsolutePosition > 0 Then
            If Adodc3.Recordset.AbsolutePosition > 1 Then
                Adodc3.Recordset.MovePrevious
            Else
                Adodc3.Recordset.Move 0
            End If
                
                  '听力题
        ElseIf Adodc4.Recordset.AbsolutePosition > 0 Then
            If Adodc4.Recordset.AbsolutePosition > 1 Then
                Adodc4.Recordset.MovePrevious
            Else
                Adodc4.Recordset.Move 0
            End If
              
        End If
    End If