Como modificar, agregar y o eliminar registros en un listview en vb6

[cindycpc3]

Buenas Tardes colegas,

Tengo un listview que me trae solo dos registros de una base de datos y deseo poder seleccionar un registro de ese listview y marcar la opcion que necesite asi sea modificar el registro o eliminarlo y hasta poder agregar uno nuevo.

Gracias de ante mano el listview se llama Lst_mod_usuarios
esto es lo que tengo hasta ahora programado en el boton modificar pero obvio no funciona

Private Sub CmdEdit_Click()

Dim rs As New ADODB.Recordset

Dim sql As String
Dim ID As Integer

g_db.Open "driver={SQL Server};server=192.168.0.3;uid=profit;pwd=profit;d atabase=Aplicaciones"


For i = 1 To Lst_mod_usuarios.ListItems.Count

If Lst_mod_usuarios.ListItems.Item(i).Selected Then

.SubItems(1) = rs.Item(i).Text6
.SubItems(2) = rs.Item(i).Text5

sql = "update tbl_users ( usuario, pass) VALUES ( '" & Text6.Text & "', '" & Text5.Text & ")"
g_db.Execute sql
End If

Next i

' Edita los datos del registro



'Actualiza los datos
rs.Update

Exit For

Else
'siguiente registro
rs.MoveNext
End If

Next i

rs.Close
g_db.Close

End Sub

[fesero]

yo con ADODB tenia que hacer lo siguiente para que me funcione la instruccion UPDATE

Código SQL:

Dim cmd AS NEW ADODB.Command
sConf = "UPDATE conf SET .." '(aca puse la instruccion update como un string)
cmd.CommandType = adCmdText
cmd.CommandText = sConf
cmd.ActiveConnection = cnn
cmd.Execute