請教各位，在VB中怎麼樣調用SQL的存儲過程？

Option ExplicitPrivate Sub Form_Load()
    Form1.AutoRedraw = True
    Dim Sc As String, Result As String
    Dim Cn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim Rs As New ADODB.Recordset
    Dim A(5) As String, B(5) As String
    Dim i As Integer
    i = 0
        
    Sc = "Driver={SQL Server}; Server=(local);Uid=sa;pwd=;database=Employees"
    Cn.Open Sc
    With cmd
        .ActiveConnection = Cn
        .CommandType = adCmdStoredProc
        .CommandText = "proc_aa"
        .Parameters("@T_no") = "2002"    '输入参数值
    End With
    Set Rs = cmd.Execute()
    Do While Not Rs.EOF
       A(i) = Rs("T_no")    '取结果集
       B(i) = Rs("Mod")     'T_no和Mod均为表aa中的字段
       Rs.MoveNext
       i = i + 1
    Loop
    Rs.Close
    Set Rs = Nothing
    Set Cn = Nothing
    For i = 0 To UBound(A)      '显示结果
        Print A(i) & "  " & B(i)
    Next i
End Sub