VB用LISTBOX列出数据库的所有表名

连数据库会了吧？连上后用下面的语句写。
tsql = "select name from sysobjects where type='U'"
rs.Open tsql, cn, 1, 1
Do Until rs.EOF
list1.AddItem rs.Fields("name")
rs.MoveNext
Loop

dim cn as adodb.connection
dim rs as adodb.recordset
dim tsql as string
dim i as integer
set cn=new adodb.connection
cn.open "driver={sql server};server=servername;database=DATA;uid=sa;pwd=password"
tsql="select name from sysobjects where type='U'"
set rs=new adodb.recordset
rs.open tsql,cn,4,2
if rs.recordcount>0 then
list1.clear
rs.movefirst
for i=0 to rs.recordcount-1
list1.add rs.fields("name"),i
rs.movenext
next i
end if
set rs=nothing
set cn=nothing

dim conn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
dim i as integer
conn .open &qu