Usos listview en vb6.0

[cindycpc3]

Buenos dias colegas,

Tengo un listview el cual me trae informacion de una base de datos, tomando en cuenta que el listwiew funciona como una hoja excel, dicha informacion que traigo son nombres y numeros telefonicos, tengo un formulario el cual es para envio de sms, lo que significa que cuando yo quiera enviar un sms en un boton enviar me debe jalar de ese listview solo los datos que yo con el teclado y o mouse haya seleccionado, como haria en ese caso??

Les muestro el codigo elaborado para mas detalles y sirva para aquellos colegas que necesitan llenar un listview desde una bd y no sepan.

--llamo el listview desde el formulario
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim sql As String

' Eliminar las cabeceras
Lst_usuarios.ColumnHeaders.Clear
'
' Asignar las cabeceras
With Lst_usuarios.ColumnHeaders.Add(, , "Nombre", 2400)

End With
With Lst_usuarios.ColumnHeaders.Add(, , "Telefono", 2000, lvwColumnRight)

End With


TIPO_EVENTO = 1
--abro bd
g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"

'-- llena el combo de Usuarios
--selecciono la tabla y los campos que deseo se muestren
sql = "select nombre_persona, numero_persona from persona order by nombre_persona"
rs.Open sql, g_db
--recorro el recorset
Do While Not rs.EOF
If Not IsNull(rs.Fields.Item(0).Value) Then
With Lst_usuarios.ListItems.Add(, , rs.Fields.Item(0).Value)
' Cada subitem debe corresponder con cada una de las cabeceras
' la segunda cabecera es el Subitems(1) y así sucesivamente
.SubItems(1) = rs.Fields.Item(1).Value
End With
End If
rs.MoveNext
Loop
rs.Close

g_db.Close

End Sub

obviamente la sentencia que necesito se debe ejecutar en el comand enviar