如何通过同一个存储过程，返回多个结果集。如能提供点范例代码，感激不尽！

[snowerhuayun]

如何通过同一个存储过程，返回多个结果集。如能提供点范例代码，感激不尽！

情形如下：
我在同一窗口中为不同的text付值，各个text调用不同的存储过程。连续调用导致时间很慢。我想通过调用一个存储过程（因为各个text传入的参数是一样的），为各个text返回自己的结果集，这样就不用连续调用了。
能实现吗？

[zxlkxy]

去“问专家”找一下，我看到过，忘了。

[snowerhuayun]

楼上的帮忙想一想啊，求你了。

[bigworld]

好像在存储过程里多用几个go

[zxlkxy]

If Command1.Caption = "确定" Then
Dim I As Integer
Dim strExamSite As String
If Rs.State = adStateOpen Then
Rs.Close
End If

strExamSite = Left(LTrim(Combo1.List(Combo1.ListIndex)), 2)
Rs.Open "D_Attrib_Detail", cn, adOpenDynamic, adLockBatchOptimistic '运行存储结构取多个返回值


For I = 0 To 10000
If (Not Rs.EOF) Then
Combo2.AddItem Left((Rs(0) & " "), 12) & Trim(Rs(1))
Rs.MoveNext
End If
Next I
Label16.Caption = Trim(Mid(Combo2.List(Combo2.ListIndex), 11))
Set Rs = Rs.NextRecordset() '取下一个返回集
For I = 0 To 10000
If (Not Rs.EOF) Then
Select Case Trim(Rs(1))
Case 1
Combo5.AddItem Trim(Rs(2))
Case 2
Combo6.AddItem Trim(Rs(2))
Case 3
Combo7.AddItem Trim(Rs(2))
Case 4
Combo3.AddItem Trim(Rs(2))
Case 5
Combo8.AddItem Trim(Rs(2))

End Select
Rs.MoveNext
End If
Next I

Rs.Close
Text1.Text = Now
Combo1.Enabled = False
Frame1(1).Enabled = True
Command1.Caption = "重新选择"
Label19 = Trim(Left(Combo1.List(Combo1.ListIndex), 2))
Combo2.ListIndex = 2
Exit Sub
End If