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

Question

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

Answer 1

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