A Do...Loop that doesn't work?

  I've been trying to figure this out on why it returns a 'Loop without Do
error"...Everything done inside the do/loop is almost exactly the same in
another part of the program in VB6, but for some reason, I get the error
'loop without do' in this one.  I also double-checked and there are no exits
or calls to any other parts of the program inside this anywhere.  Is this
some kind of glitch, or does it have to have something before the DO when
you go into the sub?

....abbreviated code below:

Private Sub yadayada()
Do (this is the problem loop here)
    code....
    for/next
    code.......
    for/next
    code.......
    for/next
    code.......
    for/next
    Do
        Do
            for/next
            Select Case
             (the cases and their code)
            End Select Case
        Loop Until...
        code.......
    Loop While
    code.......
    for/next loop
   code.......
    a for/next loop
Loop While (where it returns the error)
code.......
end sub