Public tmpRs As ADODB.Recordset

Function xBagimsizRs( parametre1 as alanTürü, parametre2 as alanTürü) As ADODB.Recordset
 
Dim xServer As String:          xServer = "Sunucu Adı"  '<-- Sunucu Adı
Dim xDatabase As String:      xDatabase = "VeriTabanı Adı"        '<-- VeriTabanı Adı
Dim xStrProc As String:        xStrProc = "prosedür adı"    '<-- bu prosedür adı
 
' On Error GoTo ErrHandler:
 
  Dim objConn As New ADODB.Connection
   Dim objCmd As New ADODB.Command
 Dim objParm1 As New ADODB.Parameter
    Dim objRs As New ADODB.Recordset
 
 ' Set CommandText equal to the stored procedure name.
 objCmd.CommandText = xStrProc '<-- bu prosedür adı olacak
 objCmd.CommandType = adCmdStoredProc
 
 ' Connect to the data source.
' Stop
 Set objConn = New ADODB.Connection
     objConn.ConnectionString = "DRIVER={SQL Server};SERVER=" & xServer & ";DATABASE=" & xDatabase & ";Trusted_Connection=Yes"
     objConn.Open
 objCmd.ActiveConnection = objConn
 
 ' Automatically fill in parameter info from stored procedure.
 objCmd.Parameters.Refresh
 
 
 'objCmd(); 0 tabanlıdır ilk dğer dönüş değeridir parametre girişi 1den başlar
 'objCmd(0) = Null '<--- bu satır fonksiyon olarak kullanılırsa parametre için variant/array/Dizi için deneme amaçlı eklend,
 objCmd(1) = parametre1    '1. parametre        : Name : "@GRUPADI" : String
 objCmd(2) = parametre2    '2. parametre        : Name : "@Secim" : String
'..........
 ' Execute once and display...
 objRs.CursorLocation = adUseClient
 objRs.Open objCmd, , adOpenStatic, adLockReadOnly
     Set tmpRs = objRs.Clone
Set xBagimsizRs = tmpRs.Clone
 
 
 
 'clean up
 objRs.Close
 
Cik:
 Set objRs = Nothing
' objConn.Close
 Set objConn = Nothing
 Set objCmd = Nothing
 Set objParm1 = Nothing
 
End Function

xBagimsizRs parametre1, parametre2

Set Me.Liste0.Recordset = tmpRs.Clone