Visual Basic - TreeView & ListView

Estoy desarrollando una aplicación en Visual Basic 6.0 y trato de modificar, añadir y eliminar los elementos que se encuentran en mi listview pero no logro hacer nada me marca muchos errores(aclaro que los elementos que se encuentan en el listview son de una base de datos). Ya probe con el Treeview pero nada el código que manejo es el siguiente:

' Bloque del Menu flotante Agregar:*******************************************

Private Sub SubMnuAgregar_Click()
Dim i As Long
MyRst.Close
MyRst.Open "SELECT indexlabs from TbConfiguracionGeneral", cnnunilab
If MyRst.RecordCount = 0 Then
MyRst.Close
MyRst.Open "Insert Into TbConfiguracionGeneral(indexlabs) values('1')", cnnunilab
i = 1
Else
i = MyRst.Fields("indexlabs")
i = i + 1
MyRst.Fields("indexlabs") = i
MyRst.Update
End If
Call conexion(MyRst, MyTb, strconect)
Set NodXLab = lvLabs.ListItems.Add(, , "Laboratorio " & Format(i, "000"), 4, 4) 'LstvLabs.ListItems.Add(, , "Laboratorio " & Format(i, "000"), 4, 4)
NodXLab.Selected = True
NodXLab.EnsureVisible
lvLabs.StartLabelEdit 'Edita nodo
agregar = True
End Sub

'Bloque del Menú Flotante Eliminar *******************************************

Private Sub SubMnuEliminar_Click()
If lvLabs.ListItems.Count <> 0 Then
Dim resp, indice, i As Integer
Dim valor As String
Dim vacio As Boolean
resp = MsgBox("En Verdad Desea Eliminar el Registro Actual?", vbQuestion + vbYesNo, "Eliminar?")
If resp = 6 Then
If MyRst.RecordCount > 1 Then
indice = lvLabs.SelectedItem.Tag
consulta2.Open "DELETE FROM TbLabs Where idlab=" & indice, cnnunilab
ElseIf MyRst.RecordCount = 1 Then
indice = lvLabs.SelectedItem.Tag
consulta2.Open "DELETE FROM TbLabs Where idlab=" & indice, cnnunilab
vacio = True
End If
consulta.Open "Select * from TbPcs Where idlab=" & indice, cnnunilab
For i = 0 To consulta.RecordCount - 1
consulta2.Open "DELETE FROM TbInventario Where idpc=" & consulta.Fields("idpc"), cnnunilab
consulta.MoveNext
Next
consulta2.Open "DELETE FROM TbPcs Where idlab=" & indice, cnnunilab
consulta.Close
lvLabs.ListItems.Remove (lvLabs.SelectedItem.Index)
End If
End If
End Sub

no se si estare haciendo algo mal (aparte de tener muchas conexiones pero esque no me sale) y esque me super urge ojalá algun experto en VB me auxilie.

Hola Soy Jairo Arturo Segura Morales
Ya pude resolver el pequeño gran problema gracias a todos los que se tomaron la molestia de leer :).