Visual Basic.NET - Eliminar registro del ListView y de la Bd a la vez

Hola Amigos:

Quisiera saber como es posible eliminar una fila del ListView y a la vez borrar ese mismo registro de la tabla de la Base de Datos.

El usuario debe escoger la fila a eliminar dando click en el fila del listview

Veo que es diferentes a Visual Basic 6.

Les agradezco su ayuda.

Larisa

te mando una rutina que tengo para borrar, puedo seleccionar por medio de un combobox y tengo en el toolstripbottom el boton de borrar

Private Sub tsbBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbBorrar.Click
Dim LvwColec As ListView.SelectedListViewItemCollection
LvwColec = New ListView.SelectedListViewItemCollection(LvwBuscarResul)

Dim intTotSelecCuent As Integer
intTotSelecCuent = LvwColec.Count()

If (intTotSelecCuent < 1) Then
MessageBox.Show("No ha seleccionado ningún registro", "¡Atención!")
Return
ElseIf (intTotSelecCuent > 1) Then
Return
End If
Dim IntRes As DialogResult
IntRes = MessageBox.Show("¿Esta seguro que desea borrar este registro?", "¡Atención!", MessageBoxButtons.YesNo)
If (IntRes = DialogResult.No) Then
Return
End If
Dim intContador As Integer
Dim strIDToDelete As String
For intContador = 0 To intTotSelecCuent - 1
strIDToDelete += "'"
strIDToDelete += LvwColec.Item(0).Text
strIDToDelete += "'"
If (intContador < intTotSelecCuent - 1) Then
strIDToDelete += ","
End If
LvwColec.Item(0).Remove()
Next
Dim strQuery As String ', strTemp esta variable no se usa va despues de strQuery
Dim intClase As Integer

intClase = CInt(Resultado)
If (intClase = 0) Then
strQuery = "DELETE FROM Empresa WHERE IdEmp IN ("
strQuery += strIDToDelete & ")"
ElseIf (intClase = 1) Then
strQuery = "DELETE FROM Area WHERE IdAre IN ("
strQuery += strIDToDelete & ")"
ElseIf (intClase = 2) Then
strQuery = "DELETE FROM Coordinador WHERE IdCoo IN ("
strQuery += strIDToDelete & ")"
ElseIf (intClase = 3) Then
strQuery = "DELETE FROM Responsab WHERE IdRes IN ("
strQuery += strIDToDelete & ")"
ElseIf (intClase = 4) Then
strQuery = "DELETE FROM Usuarios WHERE IdUsu IN ("
strQuery += strIDToDelete & ")"
End If

Dim cnn As SqlConnection = Nothing
cnn = New SqlConnection(CadenaCnn)

Dim borraCmd As New SqlCommand(strQuery, cnn)
daAcBo.DeleteCommand = borraCmd

Try
cnn.Open()
daAcBo.DeleteCommand.ExecuteNonQuery()
Catch ex As SqlException
MessageBox.Show(("Fuente: " & ex.Source & ControlChars.Cr & _
"Numero: " & ex.Number.ToString() & ControlChars.Cr & _
"Estado: " & ex.State.ToString() & ControlChars.Cr & _
"Clase: " & ex.Class.ToString() & ControlChars.Cr & _
"Servidor: " & ex.Server & ControlChars.Cr & _
"Mensaje: " & ex.Message & ControlChars.Cr & _
"Procedimiento: " & ex.Procedure & ControlChars.Cr & _
"Linea: " & ex.LineNumber.ToString()))
cnn.Close()
daAcBo.Dispose()
Return
End Try
End Sub