ADO Recordset Issues on Open Method

[NotTechSauvy??]

I am having issues opening the this ADO recordset I get an error:

Microsoft activeX Data object 2.8 library(msado15.dll)


"Automation error
Unspecified error "


I have the following reference set:


Public Function funDetermineRecordValue(arrReports)
On Error GoTo HandleError


Dim strValue As String
Dim strSQL As String
Dim rstTblAdmin As New ADODB.Recordset


strSQL = "SELECT OutPut FROM TblAdmin"
Debug.Print (strSQL)


'<<<<ERROR HERE>>>>
rstTblAdmin.Open strSQL, CurrentProject.Connection,
adOpenKeyset, adLockOptimistic


Set rstTblAdmin = Nothing


HandleError:
Debug.Print (Err.Description)
End Function