Private Sub Form_Load()
Call addforqry("Select * from ltplan", ListView1)
End Sub

Public Sub addforqry(qry As String, lv As Control)
Dim i As Integer, cnt As Integer
Dim rd As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open "KEC1"
'Dim qry As String
'qry = "Select * from ltplan"
Set rd = cn.Execute(qry)
lv.ColumnHeaders.Clear
lv.ListItems.Clear
For i = 0 To rd.Fields.Count - 1
    lv.ColumnHeaders.Add , , rd.Fields(i).Name
Next
cnt = 1
If rd.BOF = False Then
Do Until rd.EOF
    lv.ListItems.Add cnt, , cnt
    For i = 0 To rd.Fields.Count - 1
        temp = rd(i)
        lv.ListItems(cnt).SubItems(i) = temp
        Next
        cnt = cnt + 1
        rd.MoveNext
        Loop
End If