Imports System.Data.OleDb
Public Class AllD
    Private Sub FillList()
        Dim Sta, Name, Dur As String
        Dim con As OleDbConnection = New OleDbConnection(strcon)
        Dim cmd As OleDbCommand = New OleDbCommand
        Dim data As OleDbDataReader
        con.Open()
        cmd.CommandText = "SELECT * FROM [domain]"
        cmd.Connection = con
        data = cmd.ExecuteReader
        ListView1.Items.Clear()
        Do While data.Read
            If data("status") = "act" Then
                Sta = "فعال"
            Else
                Sta = "غيرفعال"
            End If
            If data("KDuration") = "sal" Then
                Dur = "سال"
            Else
                Dur = "ماه"
            End If
            Name = data("Fname") & " " & data("Lname")
            Dim MyItem = ListView1.Items.Add(data("uname"))
            With MyItem
                .SubItems.Add(Name)
                .SubItems.Add(data("Coname"))
                .SubItems.Add(data("tel"))
                .SubItems.Add(data("Mob"))
                .SubItems.Add(data("Email"))
                .SubItems.Add(data("address"))
                .SubItems.Add(data("domain"))
                .SubItems.Add(data("cost"))
                .SubItems.Add(data("allcost"))
                .SubItems.Add(data("bdate"))
                .SubItems.Add(data("time") & " " & Dur)
                .SubItems.Add(data("edate"))
                .SubItems.Add(Sta)
                .SubItems.Add(data("info"))
            End With
        Loop
        con.Close()
    End Sub
    Private Sub AllD_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillList()
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
End Class