mypaste2020

   Dim rs As DAO.Recordset '  hit DB

   Dim sql As String: sql = "SELECT reasonsForYDCM FROM caseDecision WHERE id = " & Me.txtID
   Dim nums() As Long

   Set rs = CurrentDb.OpenRecordset(sql)

   nums = rs!reasonsForYDCM	'	blows up here

   Debug.Print (str(nums(1)))

   rs.Close
   Set rs = Nothing