Public Sub DeleteContactStatus(_
	ByVal ContactStatusId As Integer, _
	ByVal ContactStatusTypeId As Integer)
    
    Dim arrParams(0) As SqlParameter

    arrParams(0) = New SqlParameter("@iContactStatusId", ContactStatusId)

    strSql = "Delete From   ContactStatus " & _
             "Where  ContactStatusId = @iContactStatusId"

     SqlHelper.ExecuteNonQuery(cn, CommandType.Text, strSql, arrParams)
End Sub