DISPLAY LIST VIEW

// DISPLAY LIST VIEW

Private Sub Display_Listview()
        Dim DA As OleDbDataAdapter
        Dim DS As DataSet
        Me.lstSupplierMstr.Items.Clear()
        Dim itemcoll(100) As String
        DA = New OleDbDataAdapter("Select SuppId,SuppId1,SuppName from SupplierMaster order by SuppId", con)
        DS = New DataSet
        DA.Fill(DS, "SupplierMaster")
        Dim i As Integer = 0
        Dim j As Integer = 0

        For i = 0 To DS.Tables(0).Rows.Count - 1
            For j = 0 To DS.Tables(0).Columns.Count - 1
                itemcoll(j) = DS.Tables(0).Rows(i)(j).ToString()
            Next
            Dim lvi As New ListViewItem(itemcoll)
            Me.lstSupplierMstr.Items.Add(lvi)
        Next
    End Sub

// LIST TO TXT BOX

 Dim str As String
        str = Me.lstSupplierMstr.SelectedItems(0).Text
        disp_item(str)
    End Sub

    Private Sub disp_item(ByVal st As Single)

        Dim da As New OleDbDataAdapter("Select * from SupplierMaster where SuppId=" + Str(Val(st)) + " ", con)
        Dim dset As New DataSet
        da.Fill(dset, "SupplierMaster")

        Dim dtTable As DataTable
        dtTable = dset.Tables("SupplierMaster")

        Dim drTable As DataRow
        drTable = dtTable.NewRow

        If dset.Tables(0).Rows.Count > 0 Then
            Me.txtSuppId.Text = dset.Tables(0).Rows(0)!SuppId
            Me.txtSuppId1.Text = dset.Tables(0).Rows(0)!SuppId1
            Me.txtSuppName.Text = dset.Tables(0).Rows(0)!SuppName
        End If
        Call Lock_Fields(Panel1)
    End Sub