Populate ListView From View/Sql MS ACCESS 2003 MSSQL ADP

Any idea how i would populate the contents of a ListView control with the results of an Sql String?

example:
Function PopulateListView(Sql As String, LV As Object)
Usage:
PopulateListView("Select * from Student_T Where StudentId = 5607423", Me!StudentListView)

I had an exmaple of this, but it would only work in and MDB if anyone would like to update it to code that would work with and ADP that would be great. (although it wouldnt take SQL only a Table/Query Name).

MDB CODE:

Option Explicit

Function FillList(Domain As String, LV As Object) As Boolean
      '==================================================================
      '  Purpose:   to fill a ListView control with data from a table or
      '             query
      '  Arguments: a Domain which is the name of the table or query, and
      '             a ListView control object
      '  Returns:   A Boolean value to indicate if the function was
      '             successful
      '==================================================================

      Dim db As Database, rs As Recordset
      Dim intTotCount As Integer
      Dim intCount1 As Integer, intCount2 As Integer
      Dim colNew As ColumnHeader, NewLine As ListItem

      On Error GoTo Err_Man

      ' Clear the ListView control.
      LV.ListItems.Clear
      LV.ColumnHeaders.Clear

      ' Set Variables.
      Set db = CurrentDb
      Set rs = db.OpenRecordset(Domain)


      ' Set Column Headers.
      For intCount1 = 0 To rs.Fields.Count - 1
         Set colNew = LV.ColumnHeaders.Add(, , rs(intCount1).Name)
      Next intCount1
      LV.View = 3    ' Set View property to 'Report'.

      ' Set Total Records Counter.
      rs.MoveLast
      intTotCount = rs.RecordCount
      rs.MoveFirst

      ' Loop through recordset and add Items to the control.
      For intCount1 = 1 To intTotCount
         If IsNumeric(rs(0).Value) Then
            Set NewLine = LV.ListItems.Add(, , Str(rs(0).Value))
         Else
            Set NewLine = LV.ListItems.Add(, , rs(0).Value)
         End If
         For intCount2 = 1 To rs.Fields.Count - 1
            NewLine.SubItems(intCount2) = rs(intCount2).Value
         Next intCount2
         rs.MoveNext
      Next intCount1

      Exit Function

Err_Man:
         ' Ignore Error 94 which indicates you passed a NULL value.
         If Err = 94 Then
            Resume Next
         Else
         ' Otherwise display the error message.
            MsgBox "Error: " & Err.Number & Chr(13) & _
               Chr(10) & Err.Description
         End If

      End Function
Start Free Trial