Private Sub PopUpMenuListViewCreateComponent_Click()

Dim db As Database
Dim rstCustomers As DAO.Recordset
Dim itmX As Object

Me!lvListView.SmallIcons = Me.ImageList1

Set db = OpenDatabase("C:\ADLib\DbLib\MainLib.mdb")
db.Execute ("INSERT INTO T_Devices ( ParentID, Name, [Library Ref], [Library Path], [Footprint Ref], [Footprint Path] ) VALUES (" & Me.Text1 & ", 'Новый компонент', '@', 1, '@', 1);")


Set rstCustomers = db.OpenRecordset("SELECT * From T_Devices WHERE (((T_Devices.ParentID)=" & Me.Text1 & ") AND ((T_Devices.Name)=" & "'Новый компонент'" & "));", , dbOpenForwardOnly)

If rstCustomers.RecordCount <>  0  Then
   rstCustomers.MoveFirst
   Set itmX = lvListView.ListItems.Add(, "@" & rstCustomers!ID, "Новый компонент")
   S1 = "One"
   itmX.SmallIcon = "One"
   itmX.SubItems( 1 ) = "@"
   itmX.SubItems( 2 ) = "@"
   itmX.Selected = True
   Me!lvListView.StartLabelEdit
End If

End Sub

Private Sub Form_Load()
Dim itmX As Object
Me!ListView.ListItems.Clear
Me!ListView.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" & rstCustomers!ID, rstCustomers!Name)
itmX.SmallIcon = "One"
End Sub

Private Sub Form_Load()
Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"
End Sub

Private Sub Form_Load()
Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"

Me!ListView1.StartLabelEdit

End Sub

Me!lvListView.SetFocus

Me!lvListView.StartLabelEdit

Dim itmX As Object
Me!ListView1.ListItems.Clear
Me!ListView1.SmallIcons = Me.ImageList1
Set itmX = ListView1.ListItems.Add(, "@" &  1 , "Hello World")
itmX.SmallIcon = "One"

'Me!ListView1.SetFocus
Me!ListView1.StartLabelEdit

Private Sub Form_Load()