Hvad skal jeg gøre ?

Jeg har følgende kode:

------------------------------ Start ----------------------
'Jeg laver en DIM af min DATABASE forbindelse i starten.

Select Case CInt(Ordbog)
Case 1
Set rstSimple = cnnSimple.Execute("SELECT * FROM 1")

Case 2
For Omgang = 1 to 4
If Omgang = 1 Then
Set rstSimple = cnnSimple.Execute("SELECT * FROM 2")
End If
If Omgang = 2 Then
Set rstSimple = cnnSimple.Execute("SELECT * FROM 3")
End If
If Omgang = 3 Then
Set rstSimple = cnnSimple.Execute("SELECT * FROM 4")
End If
If Omgang = 4 Then
Set rstSimple = cnnSimple.Execute("SELECT * FROM 5")
End If

Next

Case 3
Set rstSimple = cnnSimple.Execute("SELECT * FROM 6")
Case 4
Set rstSimple = cnnSimple.Execute("SELECT * FROM 7")
Case 5
Set rstSimple = cnnSimple.Execute("SELECT * FROM 8")
Case 6
Set rstSimple = cnnSimple.Execute("SELECT * FROM 9")

End Select
   
If ErKorrekt = False Then

%><br><br>
<table WIDTH="580" align="center" cellpadding="0" cellspacing="0" class="Artikler">
<tr>
<td colspan="3" class="Overskrift-1" align="center"><%= rstSimple.Fields("Titel").Value %></td>
</tr>
<tr>
<td height="1" colspan="7" background="/System/bottomdots.gif"></td>   
</tr>
<%
End If
if rstSimple.eof then
Response.Write "Ordbogen er tom !"
Else
Response.Write ""
do while not rstSimple.EOF
%>
<tr>
<td width="50%" height="25" align="center"><%= rstSimple.Fields("Japansk").Value %></td>
<td width="1"> : </td>
<td width="50%" height="25" align="center"><%= rstSimple.Fields("Dansk").Value %></td>
</tr>
<tr>
<td height="1" colspan="7" background="/System/bottomdots.gif"></td>   
</tr>   
<%
rstSimple.MoveNext
Loop

End If
rstSimple.Close
cnnSimple.Close
Set cnnSimple = Nothing
Set rstSimple = Nothing

if Erkorrekt <> True then

%>
</table>
<%
End if
%>
-------------------------------- Slut -------------------

Problem: I CASE 2, skal jeg have udskrevet 4 tabeller fra DATA basen, men jeg mangler et eller andet før det kan lade sig gøre. Fordi den udskriver kun den sidste.

--- Nogen som kan hjælpe meget hurtigt med et korrekt svar.