Raport når ikke at hente data fra tabel

Jeg vælger nogle rækker i en listbox med musen og de rækker som er valgt bliver gemt i en tabel (tblChosenValues) ved tryk på en knap. Efterfølgende udskriver jeg en rapport, hvis Record Source er sat til "tblChosenValues".
Mit problem er at rapporten ikke viser noget. De data som bliver gemt i tabellen (hvilket de gør!), bliver ikke vist på rapporten.

Funktionaliteten som ligger bag knappen nævnt foroven er vist forneden.

Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click
   
    'Declaration of variables
    Dim strSQL As String
    Dim con As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim ctlSource As Control
    Dim lngcnt As Long
    DoCmd.Hourglass True

    Set rst = New ADODB.Recordset
    Set con = New ADODB.Connection
   
    'Indicates the name of the provider for the con object
    con.Provider = "Microsoft.Jet.OLEDB.4.0"
    'Opens the connection
    con.Open CurrentDb.Name, "admin", ""

    ExecuteSQL ("DELETE tblChosenValues.* FROM tblChosenValues;")

    'Open recordset
    rst.Open "tblChosenValues", con, adOpenKeyset, adLockOptimistic

    Set ctlSource = Form_frmTextSearch!lstSelectedTags

    For lngcnt = 1 To ctlSource.ListCount - 1
        If ctlSource.Selected(lngcnt) = True Then
            rst.AddNew
            rst!TagName = ctlSource.Column(0, lngcnt)
            rst!LogTime = ctlSource.Column(1, lngcnt)
            rst!Value = ctlSource.Column(2, lngcnt)
            rst.Update
        End If
    Next lngcnt
   
    DoCmd.OpenReport "rptPrintReport", acViewNormal
   
    rst.Close
    con.Close
   
    Set rst = Nothing
    Set con = Nothing
   
    DoCmd.Hourglass False
   
acViewNormal
   
Exit_cmdPrintReport_Click:
    Exit Sub

Err_cmdPrintReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click
   
End Sub

Er der nogen som har en løsning?

mvh

Mundt