我先需要写一点vb6的代码，其中有5个查询并且没个查询都赋值到ADODB.Recordset结果集中，数据库使用的是sql server

下面是一个示例代码，其中包含5个查询，并将结果集赋值给ADODB.Recordset：

Dim cnn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Dim rs4 As ADODB.Recordset
Dim rs5 As ADODB.Recordset

Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=MyServer;Initial Catalog=MyDatabase;User ID=MyUsername;Password=MyPassword;"
cnn.Open

Set rs1 = New ADODB.Recordset
rs1.Open "SELECT * FROM Table1", cnn

Set rs2 = New ADODB.Recordset
rs2.Open "SELECT * FROM Table2", cnn

Set rs3 = New ADODB.Recordset
rs3.Open "SELECT * FROM Table3", cnn

Set rs4 = New ADODB.Recordset
rs4.Open "SELECT * FROM Table4", cnn

Set rs5 = New ADODB.Recordset
rs5.Open "SELECT * FROM Table5", cnn

'使用rs1、rs2、rs3、rs4、rs5的数据

rs1.Close
rs2.Close
rs3.Close
rs4.Close
rs5.Close
cnn.Close

Set rs1 = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
Set rs4 = Nothing
Set rs5 = Nothing
Set cnn = Nothing

在代码中，我们首先创建一个ADODB.Connection对象，并设置连接字符串，连接到SQL Server数据库。然后，我们分别创建五个ADODB.Recordset对象，并通过Open方法执行查询，将结果集赋值给这些对象。最后，我们可以使用这些结果集的数据。要注意的是，在使用完结果集后，我们需要关闭它们并释放对象。