VB语句：sql = "select   name   from   sysobjects   where   type='U'" 可以将数据库中的表名全部列出来，可是我需要将这些表名赋值给变量，怎么办？

你的问题是很基础的问题，recordset.movenext 一直到eof。
你还是把数据库基本的知识学好再来做吧。