Problema con Eliminar 1 registro de la base de datos

[Peterpay]

pensando en el futuro otra opcion seria que esos parametros fueran opcionales asi quienes consumen tu metodo de tu clase no tendrian q reescribir todo , y solo adaptarias tu codigo de ese metodo (1 solo cambio contra N) claro pensando que fuera el escenario q planteo este.


Public Function eliminarUsuario(ByVal usuario As String,Optional ByVal clave As String,Optional ByVal tipo As Integer) As Boolean
Dim cn As New SqlClient.SqlConnection(conexion)
Dim cmd As New SqlClient.SqlCommand("Delete from usuarios Where perNombre = '" & usuario & "' ", cn) <==================== yo cambiaria esto por parametro del propio sqlcommand
Dim valor As Integer
Try
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
valor = cmd.ExecuteNonQuery()
MsgBox("Usuario Eliminado del Sistema ", MsgBoxStyle.Information)
Finally
cn.Close()
End Try
Return valor
End Function