class file here

Option Explicit

Public Function GetRecords(strQuery As String) As ADODB.Recordset
On Error GoTo selectError

Set GetRecords = CN.Execute(strQuery)

Exit Function
selectError:
Set GetRecords = Nothing
End Function