' It is a function having a parent recordset which will return another recordset having selected columns
Function InfoSheet(ByVal rst_parent As ADODB.Recordset) As ADODB.Recordset

'Temporary recordset, which will have selected fields from parent recordset and will be returned from this function
Dim rst_Temp As ADODB.Recordset
Set rst_Temp = New ADODB.Recordset

'Adding required number of Columns in temporary recordset : Datatypes must be same 'If there is null values then it must be declared adFldIsNullable
With rst_Temp.Fields
.Append "Field 1", adInteger, 4, adFldIsNullable
.Append "Field 2", adVarChar, 50, adFldIsNullable
.Append "Field 3", adVarChar, 25, adFldIsNullable
End With

I am just a nice creature of God having just a little knowledge. Its my attempt to extend myself in the air. I love myself, my neighborhood, my city, my country and off-course this universe. My aim for life is just being a sincere & a true human being only.