Vb.net 将Listview子项字符串转换为货币

我有一个包含子项的列表视图，在其中一个子项中，我需要将值显示为货币。我使用的代码错误为“从字符串“N2”转换为类型“integer”无效”。我知道我需要格式化的子，但我不知道如何做到这一点

如果有人能指出正确的编码方法，我将不胜感激。非常感谢

Sub filllistview()
        Try
            'creatconn()
            cn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("Select * from Postings", cn)
            dr = cmd.ExecuteReader()
            While dr.Read()

                ListView1.Items.Add(dr(4).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(11).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(7).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(5).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(14).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(3).ToString("N2")) <--- **This is the subitem**

            End While

        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        Finally
            dr.Close()
            cn.Close()
        End Try
    End Sub

子filllistview（）
尝试
"()
cn.Open（）
Dim cmd As OLEDBCOMAND=新OLEDBCOMAND（“从发布中选择*”，cn）
dr=cmd.ExecuteReader（）
而里德博士
ListView1.Items.Add（dr（4.ToString（））
ListView1.Items（ListView1.Items.Count-1）.SubItems.Add（dr（11）.ToString（））
ListView1.Items（ListView1.Items.Count-1）.SubItems.Add（dr（7）.ToString（））
ListView1.Items（ListView1.Items.Count-1）.SubItems.Add（dr（5）.ToString（））
ListView1.Items（ListView1.Items.Count-1）.SubItems.Add（dr（14）.ToString（））
ListView1.Items（ListView1.Items.Count-1）.SubItems.Add（dr（3）.ToString（“N2”））
dr（3）
返回
对象的类型。首先将其强制转换为整数：

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(CInt(dr(3)).ToString("C"))

我需要这是货币。似乎正在转换为整数。如何显示货币，如23.56英镑谢谢