直接绑定,
或用代码添加都可以

' Visual Basic
' Adds two subitems to the first list item
ListView1.Items(0).SubItems.Add("John Smith")
ListView1.Items(0).SubItems.Add("Accounting")

// C#
// Adds two subitems to the first list item.
listView1.Items[0].SubItems.Add("John Smith");
listView1.Items[0].SubItems.Add("Accounting");

Imports System.Data.OleDb

Public cn As New OleDbConnection
  Private ds As New DataSet

 Public Function getConnection() As Boolean

        Try
            If cn.State = ConnectionState.Open = True Then cn.Close()
            Dim str As String = "Data Source=" & Application.StartupPath & "\Data\football.mdb"
            cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Jet OLEDB:Database Password=wefar;" & str
            cn.Open()
            Return True
        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Message")
            Return False
        End Try

    End Function


 Private Sub userview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim daListview As OleDbDataAdapter
    Dim dvlistview As New DataView

getConnection
     
    ListView1.Columns.Add("aa", 140, HorizontalAlignment.Left)
    ListView1.Columns.Add("bb", 120, HorizontalAlignment.Center)
   daListview = New OleDbDataAdapter("select * from users", cn)
   daListview.Fill(ds, "ListView")
   dvListView = ds.Tables("ListView").DefaultView

  ListView1.Items.Clear()
            For cnt = 0 To dvListView.Count - 1
                Dim lv As New ListViewItem
                lv.SubItems.Clear()
                lv.SubItems(0).Text = dvlistview(cnt).Item("users")
                lv.SubItems.Add(dvlistview(cnt).Item("ee)
                ListView1.Items.Add(lv)
            Next
                ListView1.Update()

end sub
希望老兄能看的懂了
看懂了别忘了给分

add:
Dim objItem As ListViewItem
        objItem = ListViewFollowMedication.Items.Add(ComboBoxFollowKind.Text)
        objItem.SubItems.Add(ComboBoxFollowSort.Text)
        objItem.SubItems.Add(ComboBoxFollowMedication.Text)
        objItem.SubItems.Add(TextBoxFollowDosage.Text)
delete:
Dim strselectMedication As String
        Dim objItem As ListViewItem
        strselectMedication = ListViewFollowMedication.SelectedIndices.Item(0)
        Dim Scinf As Int16
        Scinf = MsgBox("确定删除此记录？", MsgBoxStyle.YesNo, "删除记录")
        If Scinf = 6 Then
            ListViewFollowMedication.Items(strselectMedication).Remove()
        End If

Public Sub sql_scn()
        Try
            ListView1.Items.Clear()
            ListView1.Columns.Clear()
            Dim reader As SqlDataReader
            Dim sConnectionString As String = _
          "server=localhost;uid=sa;pwd=;database=temp"
            Dim sconn As SqlConnection = New SqlConnection(sConnectionString)
            sconn.Open()
            Dim sSQL As String = "SELECT * FROM asd"
            Dim cmd As SqlCommand = New SqlCommand(sSQL, sconn)
            Dim sqlda As SqlDataAdapter = New SqlDataAdapter(sSQL, sconn)
            Dim ds As DataSet = New DataSet()
            sqlda.Fill(ds, "asd")
            Dim dt As DataTable = ds.Tables("asd")
            '数组的维数是表头的数量
            Dim columnNames(dt.Columns.Count) As String
            Dim I As Integer
            For I = 0 To  columnNames.Length -2
                '数组存放每一列的名字
                columnNames(I) = dt.Columns(I).ColumnName
            Next

            reader = cmd.ExecuteReader
            While (reader.Read())
                '    '新建一个LISTITEM的新列
                Dim li As ListViewItem = New ListViewItem()


                li.SubItems.Clear()
                Dim j As Integer
                For j = 0 To j columnNames.Length -2
                    If j >= ListView1.Columns.Count Then
                        ListView1.Columns.Add(columnNames(j), columnNames(j).Length * (CInt(ListView1.Font.SizeInPoints + 30)), HorizontalAlignment.Center)
                    Else
                        ListView1.Columns(j).Text = columnNames(j)
                        ListView1.Columns(j).Width = columnNames(j)
                    End If
                    li.SubItems(j).Text = reader(columnNames(j)).ToString
                    li.SubItems.Add(reader(columnNames(j))).ToString()
                Next j
                ListView1.Items.Add(li)
            End While
            sconn.Close()
            reader.Close()
        Catch err As Exception
            MessageBox.Show(err.Message, "错误提示")
        End Try