else 没有if?该怎么处理

else 没有if?
If   count1   =   True   Then

                If   sum   +   Text1.Text   >   10   Then
                          MsgBox   "您输入的题量总数不能超过10 ",   vbOKOnly
                Else
                Call   conn
                rs.Open   sql,   cn,   1,   3
                                If   rs.RecordCount   =   0   Then
                                MsgBox   "没有找到你要找   的记录 ",   vbOKOnly
                                  Else
                                          If   rs.RecordCount   <   Text1.Text   Then
                                                        If   (MsgBox( "数据库中的记录数没有达到您要求的数目,您是否要添加到试卷中 ",   vbYesNo)   =   vbYes)   Then
                                                                    With   MSFlexGrid1
                                                                                                .Cols   =   9
                                                                                                .Rows   =   rs.RecordCount
                                                                                                For   i   =   sum   To   .Row   +   sum
                                                                                                          For   j   =   1   To   9
                                                                                                          .TextMatrix(sum,   j)   =   rs.Fields(j   -   1).Value