Tabeller i mySQL database

Hvordan udskriver jeg hvilke tabeller der er i en mysql database ?

Har prøvet med:

Function Databaseview()
SQLserveradr=\"xxx\"
SQLdatabase=\"xxx\"   
SQLlogin=\"xxx\"
SQLpassword=\"xxx\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword
    set rs = conn.openschema(20)
    While not rs.eof
str = str & rs(\"table_name\") & \"<BR>\"
    rs.movenext
    wend
    rs.close
    set rs = nothing
    databaseview = str
    conn.Close
    Set conn = nothing
End Function

response.write databaseview()

Men det virker ikke, hvordan gør jeg så ??