Try
            Total = cmd.ExecuteScalar
        Catch e As Exception
'вот тут будет сообщение об ощибке, что  снима делать,как его пердать клиенту?
        Finally
            cn1.Close()
        End Try