实例化的变量重新赋值
代码：

Dim SR As SqlClient.SqlDataReader, SC As New SqlClient.SqlCommand( "SELECT * FROM L制作类型 ", DataConnection)

SR = SC.ExecuteReader
While SR.Read
ListBox1.Items.Add(SR( "名称 "))
End While
SR.Close()
SC.Dispose()

接下去我要仍旧使用SC变量读取数据库中其他的表，该怎么写？

[解决办法]
sc.CommandText= "... "
...
[解决办法]
用

sc.CommandText = "SELECT * FROM table WHERE ... "

改变其查询语句就行了。

[解决办法]
SC.Dispose()
这句去掉

然后
sc.CommandText= "... "