VB 读取ACCESS数据库中所有表名

来源：百度知道

功能说明：读取数据库中所有用户自定义的数据表名（不包括系统系统表名）

'conn 是ADODB.Connection
'RS   是ADODB.RecordSet
'以上两个变量,只要写个数据库的人都知道

 set rs=conn.OpenSchema(20)
  do until rs.eof
  if ucase(rs("TABLE_TYPE")) ="TABLE" then
msgbox "表:" & rs("TABLE_NAME")
end if
rs.movenext
loop