VB function get() from SQL server

Question

In excel, I want to write a function like following:

Function GetDCF(vari As String)

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim cn As ADODB.Con