Function myFunc()

   Dim oCn
   Dim oCmd
   Dim oRs
   Dim avReturn
   dim p
   
   Set oCn = Server.CreateObject("ADODB.Connection")
   oCn.Open myConnectionString
   oCn.CursorLocation = adUseClient
   set oCmd = Server.CreateObject("ADODB.Command")   
   
   With oCmd
	.ActiveConnection = oCn
	.CommandType = adCmdStoredProc
	.CommandTimeout = 0
	.CommandText = "myStoredProcInDB"
   End With

   'Здесь возвращается датасет из двух таблиц
   Set oRs = oCmd.Execute()
   If Not oRs.EOF Then
      ReDim avReturn(1, oRs.RecordCount - 1)
   End If
   
   p = 0 
   

   Do While Not oRs.Eof
      avReturn(0, p) = oRs.Fields("id")
      avReturn(1, p) = oRs.Fields("Name")
      oRs.MoveNext
      p = p + 1
   Loop
   
   Set oRs = Nothing
   Set oCmd = Nothing
   oCn.Close
   Set oCn = Nothing
   
   myFunc= avReturn
End Function