请问一下，这段代码改成VB的要怎么写！

         dim i
    dim j
    i = 0
    j = 0
    Do While j < 42
        Set rs=Conn.execute("select a,c,d,e from table1 where UserID='000'")
        If Rs("a") >= 0 Then
            Set rs1=Game.execute("select a,b,c,d,e from Table2 where ID="&rs("id"))
            If Not rs1.eof Then
                    response.write("<tr >")
                    response.write("<td>"&(j+1)&"</td>")
                    response.write("<td>"&rs("a")&"</td>")
                    response.write("<td>"&rs1("b")&"</td>")
                    response.write("<td>"&rs("c")&"</td>")
                    response.write("<td>"&rs("d")&"</td>")
                    response.write("<td>"&rs("e")&"</td>")
                response.write("</tr>")
            Else
                response.write("<tr>")
                    response.write("<td>"&(j+1)&"</td>")
                    response.write("<td> "&rs("a")&"</td>")
                response.write("</tr>")
            End If
            rs1.close
        End If
        j = j + 1
        i = i + 8
        rs.Close
    Loop
    End if