Public Function RunProcA(ByVal proc As String, ByRef params() As ADODB.Parameter) As ADODB.recordSet

Dim ResultSet As New ADODB.recordSet
Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
On Error GoTo ErrHandler:
GetConnnectionStr
With con
.ConnectionString = GetConnstr
.Open
End With
For Each p In params
      cmd.Parameters.Append p
Next p

With cmd
    .ActiveConnection = con
    .CommandText = proc
    .CommandType = adCmdStoredProc
    .Execute
End With

Set RunProcA = New ADODB.recordSet
With RunProcA
    .ActiveConnection = con
    .Open cmd
End With
con.Close
Set cmd = Nothing
Set con = Nothing
Set ResultSet = Nothing

 Exit Function
'Exeptions
ErrHandler:
            MsgBox Error & chr( 10 ) & Err.Number
End Function

Private Sub bt_Refresh_Click()
Dim Result As New ADODB.recordSet
Dim Data As New DA_sql
Dim p() As New ADODB.Parameter
Dim list() As String
With Data
    .Database = "master"
    .Password = ""
    .Server = Me.tb_Server.Value
    .User = "sa"
End With

Set Result = Data.RunProcA("sp_Databases", p())

End Sub