Eliminar un registro

Eliminar un registro

Codigo que muestra como eliminar un registro de la tabla de usuarios.....


 Dim nResp As Byte
        Dim cnSQL As SqlConnection
        Dim cmSQL As SqlCommand
        Dim sSQL As String

        Dim sCadenaConexion As String = "Data Source=(local);Initial Catalog=Prueba;Integrated Security=True"
        cnSQL = New SqlConnection(sCadenaConexion)
        cnSQL.Open()

        nResp = MessageBox.Show("Desea eliminar este registro...", "Eliminar", MessageBoxButtons.YesNo)
        If nResp = 6 Then
            sSQL = "DELETE Usuarios WHERE usuario='" & ListBox1.SelectedValue & "'"
        Else
            cnSQL.Close()
            Exit Sub
        End If
        cmSQL = New SqlCommand(sSQL, cnSQL)
        cmSQL.ExecuteNonQuery()
        cnSQL.Close()
        MessageBox.Show("usuario eliminado exitosamente....")